[Delphi] Menambahkan Check Box ke dalam Dialog Box Standard

Standar

Misalkan kita mempunyai sebuah confirmation dialog, dimana pengguna dapat memilih checkbox yang berisi “Jangan tampilkan pesan ini lagi”. Ketika pengguna menutup dialog, program menyimpan keadaan checkbox (dicentang atau tidak dicentang) di variabel global sehingga pada waktu kemunculan berikutnya, nilai dari checkbox berdasarkan dari keadaan terakhir checkbox.

Langkah yg diperlukan :

1. Buat sebuah form lalu tambahkan sebuah button

checkbox-on-dialogbox-design-form

Tampilan desain form

2. Lalu tambahkan script dibawah pada button tersebut

procedure TForm1.Button1Click(Sender: TObject);
var
  AMsgDialog: TForm;
  ACheckBox: TCheckBox;
begin
  AMsgDialog := CreateMessageDialog('Pesan yg ditampilkan.', mtWarning, [mbYes, mbNo]) ;
  ACheckBox := TCheckBox.Create(AMsgDialog) ;
  with AMsgDialog do
  try
   Caption := 'Judul Dialog' ;
   Height := 169;
   Width := 210;

   with ACheckBox do
   begin
    Parent := AMsgDialog;
    Caption := 'Jangan tampilkan pesan ini lagi';
    Top := 112;
    Left := 8;
    Width := 200;
   end;

   if (ShowModal = ID_YES) then
   begin
    if ACheckBox.Checked then
      //listing program jika keadaan checkbox dicetang
    else
      //listing program jika keadaan checkbox tidak dicetang
   end;
  finally
   Free;
  end;
end;

3. Running program lalu klik button yang sudah diberi script, maka akan muncul kotak dialog seperti pada gambar dibawah

checkbox-on-dialogbox-running-form

Tampilan Form setelah di Run

checkbox-on-dialogbox-running-dialog

Tampilan Kotak Dialog dengan tambahan Checkbox

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