Membuat Perubahan Warna Hanya Dengan Menekan Salah Satu Button

 Membuat Perubahan Warna Dengan Menekan Salah Satu Button

Yang pertama akan kita lakukan adalah membuka program Borland Delphi yaitu dengan
Klik Start Pilih All Program,kemudian klik Borland Delphi 7.0 maka akan tampil jendela Borland Delphi 7.0 seperti dibawah ini

Selanjutnya kita akan merancang tampilan pada program yang akan kita buat 

yang pertama buat caption LATIHAN PERUBAHAN WARNA DENGAN MENEKAN SALAH SATU BUTTON  menggunakan label yang terdapat pada komponen pallate

Selanjutnya kita membuat button Merah,Biru,Kuning,Hijau,Exit menggunakan button yang tedapat pada komponen pallate

Kita mengganti tulisan edit1,edit2,dst dan button1,button2dst yaitu dengan menggantinya pada properties -Caption ,Liat pada gambar lebih jelasnya

Sekarang kita mengetik perintah dengan menggunakan coding pada code editor,code editor akan terbuka jika kita mengklik dua kali pada button,maka akan muncul tampilan seperti berikut

Ketiklah perintah berupa codingan berikut ini pada setiap button

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

procedure TForm1.Button2Click(Sender: TObject);
begin
FORM1.Caption:='Biru';
form1.color:=CLBLUE;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.Caption :='Kuning';
form1.Color:=CLYELLOW;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Caption:='Hijau';
Form1.Color :=CLGREEN;
end;

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

end.

Setelah mengetik semua perintah codingannya silahkan jalankan programnya dengan mengklik tombol run

atau dengan mengklik run seperti pada gambar

Maka akan keluar tampilan

Apabila ingin menyimpan project , tinggal mengklik file lalu pilih save all

SEKIAN ARTIKEL KALI INI

SEMOGA BERMANFAAT

TRIMAKASIH :)