Scribd
Upload
6 views7 pages

Color Selection App in Delphi

The document defines a form with 10 buttons that change the form's color or text when clicked. Each button click procedure changes the form or button colors or captions.

Uploaded by

rizal182
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
6 views7 pages

Color Selection App in Delphi

The document defines a form with 10 buttons that change the form's color or text when clicked. Each button click procedure changes the form or button colors or captions.

Uploaded by

rizal182
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Label1: TLabel; Button9: TButton; Button10: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button9Click(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); begin [Link]:=clred; [Link]:='Red'; end;

procedure TForm1.Button2Click(Sender: TObject); begin

[Link]:=clwhite; [Link]:='White'; end;

procedure TForm1.Button3Click(Sender: TObject); begin [Link]:=clblue; [Link]:='Blue';

end;

procedure TForm1.Button4Click(Sender: TObject); begin [Link]:=clgreen; [Link]:='Green'; end;

procedure TForm1.Button5Click(Sender: TObject); begin [Link]:=clyellow; [Link]:='Yellow';

end;

procedure TForm1.Button6Click(Sender: TObject); begin

[Link]:=clpurple; [Link]:='Puple'; end;

procedure TForm1.Button7Click(Sender: TObject); begin [Link]:=clsilver; [Link]:='Silver'; end;

procedure TForm1.Button8Click(Sender: TObject); begin [Link]:=clSkyBlue; [Link]:='Sky Blue';

end;

procedure TForm1.Button10Click(Sender: TObject); begin [Link] end;

procedure TForm1.Button9Click(Sender: TObject); begin [Link] := 'Merah'; [Link] := 'Putih';

[Link] := 'Biru'; [Link] := 'Hijau'; [Link] := 'Kuning'; [Link] := 'Ungu'; [Link] := 'Abu - Abu'; [Link] := 'BiruLangit'; [Link] := clBtnFace;

end;

end.

Bab I Input Output Software Belajar Bahasa Inggris dan Warnanya

You might also like