Latihan Perubahan Warna Dengan Menekan Salah Satu Button Pada Program Delphi 7

Assalamu'alaikum wr.wb

Hai teman - teman, kali ini saya ingin mencoba berbagi pengetahuan mengenai program delphi. Berikut adalah latihan perubaha warna dengan menekan salah satu button pada program delphi 7. Di bawah ini adalah contoh yang telah saya buat.

Berikut adalah langkah - langkahnya :

Langkah pertama yaitu desain form pada program delphi 7.

Kemudian masukkan codingannya.

procedure TForm1.Button1Click(Sender: TObject);
begin
FORM1.Caption:='SATU';
FORM1.Color:=CLRED;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FORM1.Caption:='DUA';
FORM1.Color:=CLBLUE;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
FORM1.Caption:='TIGA';
FORM1.Color:=CLGREEN;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
FORM1.Caption:='EMPAT';
FORM1.Color:=CLYELLOW;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
APPLICATION.Terminate
end;

end.

Hasilnya seperti berikut. Tekan button satu per satu.

Ket :
Button1 = SATU (Merah)
Button2 = DUA (Biru)
Button3 = TIGA (Hijau)
Button4 = EMPAT (Kuning)
Button5 = EXIT

Sekian penjelasan kali ini, semoga bermanfaat dan menarik teman - teman untuk membaca dan mencobanya. Terima kaish.

Wassalamu'alaikum wr.wb