第一次上Delphi感覺還是不錯(cuò)的，就是自己的英文太差了，里面的很多控件都不認(rèn)識。

初次上機(jī)  自己胡亂寫了一個(gè)可以改變窗體背景色程序。

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:='紅色背景';     //窗口標(biāo)題
form1.Color:=clred                     //窗體顏色改變
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Caption:='白色背景';
form1.Color:=clwhite
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Caption:='藍(lán)色背景';
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.

第一次用它編了個(gè)小代碼，心里還是挺高興的。