第一次接触Delphi
2006-02-04 14:00:58 来源:WEB开发网第一次上Delphi感觉还是不错的,就是自己的英文太差了,里面的很多控件都不认识。
初次上机 自己胡乱写了一个可以改变窗体背景色程序。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button3: TButton;
PRocedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption:='红色背景'; //窗口标题
form1.Color:=clred //窗体颜色改变
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Caption:='白色背景';
form1.Color:=clwhite
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Caption:='蓝色背景';
form1.Color:=clblue
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.Caption:='黄色背景';
form1.Color:=clyellow
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
form1.Caption:='绿色背景';
form1.Color:=clgreen
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Close
end;
end.
第一次用它编了个小代码,心里还是挺高兴的。
- ››Delphi实现把10进制转换成16进制的函数进制转化
- ››Delphi中将字符串按给定字符分隔(似split函数功能...
- ››Delphi 动态创建窗体,锁定窗口赋值
- ››Delphi 与 VC 共享接口和对象
- ››Delphi图像处理 -- 表面模糊
- ››Delphi之多线程实例
- ››Delphi SelectSingleNode的使用 根据节点属性获取...
- ››Delphi接口详述
- ››delphi 远程调试
- ››第一次建站失败的经历 获取了宝贵的心得
- ››Delphi与DirectX之DelphiX(34): TDIB.Lightness()...
- ››Delphi Application.MessageBox详解
更多精彩
赞助商链接