Belajar Menampilkan Palet Warna

Selasa, 03 Februari 2009
Adacara yang lebih muda untuk meruba warna form pada program Delphi yaitu dengan mengunakan palet warna, pada program berikut ini hanya menggunakan satu tombol yang dipergunajakan untuk menjalankan Colordialog. Adapun caranya adalah sebagai berikut :
1. Buatlah sebuah form seperti pada gambar 15.pada progrsm ini kita akan menggunakan fungsi colordialog yang bisa diambil pada component pallete dialogs.


Gambar 15. Desain form
2. Setelah selesai mendesain form, doble click tombol Uba Warna Form dan masukan code berikut pada bidang code editor :

procedure TForm1.Button1Click(Sender: TObject);
begin
If colordialog1.Execute then
Form1.Color := Colordialog1.Color;
end;

3. Setelah selesai jalankan program dengan menekan F9 pada keyboard atau dengan meclik tombol Run pada panel.

0 komentar:

Pengikut