第一次接触Delphi

第一次上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.

第一次用它编了个小代码，心里还是挺高兴的。