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.
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.
moga aja bermanfaat bagi tmen2
amiiin
Tidak ada komentar:
Posting Komentar