Delphi – Rubah Warna dengan Color Dialog

Assalamualaikum Temen Temen Ssemua, Salam Semangat di Rabu Pagi hari ini d(^o^”) kembali untuk tips tips materi pembelajara Delphi nich tetap di Catatan Eko Personal Blog.

Untuk pagi hari ini saya mau berbagi materi Delphi dengan tema merubah warna component dengan menggunakan color dialog box. Hmm kalau sebelumnya kita juga pernah merubah warna component Delphi dengan list code warna, sekarang kita gunakan fasilitas color dialog untuk mempermudah dalam list codenya juga membuat attractive program yang kita buat. Sok langsug ada disimak ya.

Pembuatan Program kali ini temen temen akan menemukan component terbaru yakni color dialog box yang bisa temen temen temukan pada tab dialog pada tab pallete. Lihat gambar dibawah ini.

Dimana component tersebut akan berfungsi memanggil dialog warna yang berbasis windows. Nah jadi gak perlu repot repot nulis coding warna sepert yang sebelumnya kita bahas. Nah untuk mempersingkat waktu langsung aja ya kita praktekkan.

  • Pertama tama buatlah design form seperti dibawah ini, gunakan color dialog pada pallete dialog
  • Aturlah Properties Namenya sebagai berikut :

Untuk alur programnya sebagai berikut  :

  • Jika program berjalan kita bisa memilih button pilih warna untuk memunculkan dialog box warna, dimaka kalau kita pilih warnanya dan tekan ok maka panel1 akan berubah warna sesuai dengan yang kita pilih pada color dialog nya.
  • Jika button keluar di klik makan akan muncul konfirmasi “ apakah yakin akan keluar dari program “ jika ya makan akan keluar dari program.

Berikut ini adalah Listing Codenya :

procedure Tform_materi24.button_warnaClick(Sender: TObject);
begin

  colordialog1.Execute;
  panel1.Color:=colordialog1.Color;

end;

Pada saat button_warna di klik maka Colordialog akan dimunculkan dengan perintah execution, sedangkan setelah pemilihan, warna panel akan berubah mengikuti pemilihan pada color dialog.

procedure Tform_materi24.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=IDYes)then
    begin
      close;
    end;

end;

Jika button keluar diklik maka akan ada konfirmasi apakah yakin akan keluar jika ya maka program akan dikeluarkan.

 

Nah dibawah ini adalah hasil tampilan programnya saat dijalankan.

 

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Merubah warna component dengan Color Dialog. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Download – Materi 24 Ubah warna dengan Color Dialog

Tetap Simak Terus CatatanEko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

_______________________________________________________________________________

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Web Browser

–          Delphi – validasi Angka Edit Box

–          Delphi – Copy String

_______________________________________________________________________________

 

6 thoughts on “Delphi – Rubah Warna dengan Color Dialog

  1. Ping-balik: Delphi – Menampilkan Dan Menghapus Gambar pada Image « Catatan Eko

  2. Ping-balik: Delphi – Menghitung Jumlah Karakter Edit Box « Catatan Eko

  3. Ping-balik: Catatan Eko

  4. Ping-balik: Delphi – Fungsi Delete String « Catatan Eko

  5. kyk’a msh kurang deh listing’a soal’a klo ditekan tombol cancel di kotak dialogcolor warna’a tetap berubah.. malah jd hitam warna’a!!!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s