Mengubah Warna Component Form Pada Delphi 7

AssalamualaikumTemen Temen Semua, Salam Luar Biasa Hari ini. Hari ini saya mau share materi delphi lagi nich. Hal yang akan kita bahas kali ini adalah bagaimana merubah warna suatu component di borland delphi 7. beberapa component yang biasa kita gunakan dalam design form bisa kita rubah warnanya dengan 2 cara : yakni merubah melalui properties di object inspector pada colom tab atau merubahnya menggunakan listing code. untuk saat ini kita akan membahas

bagaimana merubah warna component melalui listing code pada Borland Delphi 7.

Untuk component yang akan kita coba ganti warnanya adalah component formnya, jadi kita akan merubah rubah warna form menggunakan component button dengan list code. Langsung saja disimak ya Temen Temen.

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	procedure Tfrm_materi9.button_merahClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clskyblue;

5

6

end;

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

1	procedure Tfrm_materi9.button_navyClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clnavy;

5

6

end;

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

1	procedure Tfrm_materi9.button_greenClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clgreen;

5

6

end;

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

1	procedure Tfrm_materi9.button_maroonClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clmaroon;

5

6

end;

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

1	procedure Tfrm_materi9.button_oliveClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clolive;

5

6

end;

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

1	procedure Tfrm_materi9.button_yellowClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clyellow;

5

6

end;

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

1	procedure Tfrm_materi9.button_purpleClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clpurple;

5

6

end;

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

1	procedure Tfrm_materi9.button_redClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clred;

5

6

end;

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

1	procedure Tfrm_materi9.button_blueClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=clblue;

5

6

end;

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

1	procedure Tfrm_materi9.button_climeClick(Sender: TObject);

2

begin

3

4	frm_materi9.Color:=cllime;

5

6

end;

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

1	procedure Tfrm_materi9.button_keluarClick(Sender: TObject);

2

begin

3

4

close;

5

6

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

Nah Gampang Kan, Pastinya dunk. Yah itu dulu ya Temen Temen untuk Share Kali ini *hehehehe dah lumayan ngantuk nich -,- . tetap ditunggu saja materi lainnya untuk tutorial diblog ini. Nah bagi yang mau coba liat langsung projek materi ini bisa langsung download di link dibawah ini ya. Gampang kok dan tentu aja bisa memperlancar kita mengenal code program delphi lebih dekat, monggo di coba :

Download project 9 – Mengubah Warna Componen Form Pada Delphi 7.

Nah hari ini itu dulu yang bisa saya share nich, mudah mudahan kedepan ada kesempatan untuk share materi materi delphi lagi sekali belajar bersama sama temen temen semua. See you next Tutorial ya, Salam Luar Biasa.