Menggunakan MessageBox di Delphi 7

Menggunakan MessageBox di Delphi 7

Message Box digunakan untuk memberi sebuah pesan pengingat atau pesan konfirmasi atas tindakan user. Ada beberapa model Message Box pada Delphi seperti :

a. ShowMessage

ShowMessage(‘Ini Pesan’);

b. MessageDlg

MessageDlg(‘Ini Pesan’,mtInfirmation,[mbOK],0);

c. Application.MessageBox

Application.MessageBox(‘Ini Pesan’,’Ini Judul Pesan’,mb_OK);

---

Praktek membuat Program

1. Buat Form seperti berikut :

2. Ubah Properties-nya seperti berikut :

3. Listing Program sebagai berikut :

procedure TF_MessageBox.bt_simpanClick(Sender: TObject);

begin

     if (ed_nama.Text = '') then

          ShowMessage('Nama Masih Kosong')

     else

          begin

               if MessageDlg('Simpan ??',mtConfirmation,[mbYes,mbNo],0) = mrYes then

                    ShowMessage('Berhasil Menyimpan');

          end;

end;

procedure TF_MessageBox.bt_closeClick(Sender: TObject);

begin

     if Application.MessageBox('Keluar ??','Konfirmasi',mb_YESNO) = id_YES then

          Close;

end;

4. Jalankan Program

Sumber : https://catataneko.wordpress.com