The first time I went to Delphi, I felt pretty good, but my English was too bad and I didn’t recognize many of the controls inside.
When I first started to go to the computer, I wrote a random program that could change the background color of the form.
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:='red background'; //Window title
form1.Color:=clred //The color of the form is changed
end;
procedure TForm1.Button2Click(Sender: TObject);
Begin
form1.Caption:='White background';
form1.Color:=clwhite
end;
procedure TForm1.Button4Click(Sender: TObject);
Begin
form1.Caption:='blue background';
form1.Color:=clblue
end;
procedure TForm1.Button5Click(Sender: TObject);
Begin
form1.Caption:='yellow background';
form1.Color:=clyellow
end;
procedure TForm1.Button6Click(Sender: TObject);
Begin
form1.Caption:='green background';
form1.Color:=clgreen
end;
procedure TForm1.Button3Click(Sender: TObject);
Begin
form1.Close
end;
end.
I was very happy to write a small code with it for the first time.