Mengubah Warna Component Form Pada Delphi 7

Pertama Buat Design Form Seperti Dibawah ini :

Ubah Properties Namenya sebagai Berikut:

Berikut Alur Logika Programnya :

– Pada Saat Program jalan kita bisa memilih button dengan warna yang kita inginkan.

– Jika button warna diklik maka warna dari form akan berubah mengikuti warna yang sudah diset berdasarkan caption button.

– jika button keluar diklik maka akan keluar dari program.

———————————————————————————————————————————————————————-

Berikut List Programnya :

1 2 3 4 5 6

procedure Tfrm_materi9.button_merahClick(Sender: TObject); begin     frm_materi9.Color:=clskyblue;   end;

– Saat Button Merah Di Klik layar nanti layar berubah jadi biru langit *hahaha salah tulis penamaan button ” Gomenne”

1 2 3 4 5 6

procedure Tfrm_materi9.button_navyClick(Sender: TObject); begin     frm_materi9.Color:=clnavy;   end;

– Saat button Navy diklik nanti warna form berubah menjadi Biru Navy

1 2 3 4 5 6

procedure Tfrm_materi9.button_greenClick(Sender: TObject); begin     frm_materi9.Color:=clgreen;   end;

– Jika Button Green Di Klik Maka Form Menjadi Warna Hijau Gelap

1 2 3 4 5 6

procedure Tfrm_materi9.button_maroonClick(Sender: TObject); begin     frm_materi9.Color:=clmaroon;   end;

– Saat Button Maroon Di Klik Maka Form berubah warna menjadi merah maroon.

1 2 3 4 5 6

procedure Tfrm_materi9.button_oliveClick(Sender: TObject); begin     frm_materi9.Color:=clolive;   end;

– Saat Button Olive di klik makan warnanya berubah jadi warna Olive.

1 2 3 4 5 6

procedure Tfrm_materi9.button_yellowClick(Sender: TObject); begin     frm_materi9.Color:=clyellow;   end;

– Saat Button Yellow Di Klik Warna Form menjadi warna kuning.

1 2 3 4 5 6

procedure Tfrm_materi9.button_purpleClick(Sender: TObject); begin     frm_materi9.Color:=clpurple;   end;

– Jika Button Purple di klik Warna form berubah warna Ungu *hahahaha.

1 2 3 4 5 6

procedure Tfrm_materi9.button_redClick(Sender: TObject); begin     frm_materi9.Color:=clred;   end;

– Jika Button Red di klik maka warna form menjadi warna Merah.

1 2 3 4 5 6

procedure Tfrm_materi9.button_blueClick(Sender: TObject); begin     frm_materi9.Color:=clblue;   end;

– Saat Button Blue di klik maka warna form menjadi warna biru.

1 2 3 4 5 6

procedure Tfrm_materi9.button_climeClick(Sender: TObject); begin     frm_materi9.Color:=cllime;   end;

– Jika Button Clime Di Klik Maka Warna berubah jadi warna Clime

1 2 3 4 5 6

procedure Tfrm_materi9.button_keluarClick(Sender: TObject); begin     close;   end;

– Saat Button Keluar diklik makan akan keluar dari program

Ini hasil Button Green Saat Di Klik

Saat Button red Di Klik

ini Warna Blue Sky

Nah Mudah sekali kan temen temen, berikut ini list warna yang tersedia yang bisa rubah sesuka hati :

List And Preview Warna Pada Delphi 7.0

klik disini