Delphi – Membuat Message Box

Assalamualaikum Temen Temen Semua, Salam Senyum Di Pagi hari ini /(^o^”). *celingak-celinguk kemana nich Si sahabat khayalan tumben gak nyamber *hhihihihihi.

Nah Kesempatan Di Pagi Hari ini saya kembali berbagi Materi Delphi nich, masih belajar yang simple simple dulu *hehehehe namanya juga saya masih belajar jadi sekalian memperlancar materi yang saya pelajari. Judul Hari ini ialah kita akan membuat Sebuah Pesan Informasi atau Pesan Peringatan ( Message Box ) pada program Delphi yang berguna sebagai pengingat atau sebagai Konfirmasi Setiap tindakan User. Hmmm Sulit Dijelaskan dalam bentuk kata kata, Lah Monggo Langsung Simak saja Ya Temen Temen.

Untuk Materi kali ini sungguh simple temen temen dimana kita hanya akan membuat Kotak informasi saat kondisi tertentu. Hanya dengan menggunakan beberapa Code kita sudah bisa membuat kota pesan / message box standar dari Delphi. Untuk kali ini kita akan mencoba membuat pesan saat kita mengklik suatu button dalam form. Langsung aja kita bahas nich.

  • Pertama Tama Temen Temen bisa buat design Form Sebagai Berikut : cukup gunakan 3 button.

  • Atur Properties Namenya Seperti Gambar di bawah ini.

 

Nah berikut ini adalah alur Programnya :

  • JIka button informasi di klik maka akan tampil pesan informasi ‘Berikut ini adalah Message Box Berbentuk Informasi’.
  • Jika Button Konfirmasi Di Klik maka akan tampil Pesan konfirmasi ‘Mau Melihat Informasi Lainnya’ dengan 2 Pilihan Yakni Yes Dan No.
  • Jika Yes Di Pilih maka akan tampil pesan informasi ‘Berikut ini adalah Message Box Berbentuk konfirmasi’.
  • JIka No Yang Di Pilih maka akan tampil Pesan Informasi ‘Terima Kasih Banyak’.
  • Jika Button Keluar diklik makan akan tampil Pesan KonfirmasiYakin akan Keluar dari program’ dengan pilihan yes dan no, jika yes yang dipilih program akan keluar jika no yang dipilih maka kembali ke program yang berjalan.
_______________________________________________________________________________

Berikut ini adalah Source Codenya :

procedure Tform_materi16.button_informasiClick(Sender: TObject);
begin

  showmessage('Berikut ini adalah Message Box Berbentuk Informasi');

end;

Jika Button Informasi Di Klik Maka akan keluar message box informasi, Showmessage = code untuk membuat messagebox yang berbentuk informasi / pemberitahuan.


procedure Tform_materi16.button_konfirmasiClick(Sender: TObject);
begin

  if(application.MessageBox('Mau Melihat Informasi lainnya','Konfirmasi',MB_YesNo)=ID_yes) then
    begin
      showmessage('Berikut ini adalah Message Box Berbentuk Konfirmasi');
    end
  else
    begin
      showmessage('Terima kasih Banyak');
    end;

end;

 Jika Button informasi di klik makan muncul Message Box Konfirmasi dengan 2 pilihan dengan hasil yang berbeda dalam setiap jawaban. Penggabungan ini menggunakan fungsi if / percabangan untuk mendapatkan hasil yang sesuai dengan statement pengerjaan user.

procedure Tform_materi16.button_keluarClick(Sender: TObject);
begin

  if(application.MessageBox('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes) then
    begin
      close;
    end;

end;

 Jika Program Di keluarkan maka tidak akan langsung keluar melainkan memunculkan terlebih dahulu konfirmasi box / message box konfirmasi untuk meyakinkan pengguna dalam menakhiri penggunaan program.

_______________________________________________________________________________

Nah Berikut ini adalah Hasil Program Saat Dijalankan \(^o^”)/ :

  

Nah Selesailah Materi Delphi kita di pagi ini untuk membuat Message Box Pada Dephi, Gampang Banget kan – Tentunya Dunk. Untuk Temen Temen yang mau download source aplikasinya langsung monggo di cek di link dibawah ini ya :

Download – Materi 16 Membuat Message Box

Nah Tetep Simak terus Catatan Eko Personal Blog ya Temen Temen Semua, Kita akan kembali dengan materi materi pembelajaran selanjutnya yang gak kalah menarik d(^o^). Sampai Jumpa Di Hari Esok Temen Temen Semua, Salam Semangat untuk Pagi Hari ini.

Thanks & Regards

Eko

_______________________________________________________________________________

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

–          Delphi – Mengubah Posisi Teks Di List Box

–          Delphi – Menghapus Teks Di List Box

–          Delphi – Menyisipkan Teks Ke List Box

_______________________________________________________________________________

8 thoughts on “Delphi – Membuat Message Box

  1. procedure TForm2.Button2Click(Sender: TObject);
    begin
    if(application.MessageBox(‘Apakah anda yakin akan keluar’,’Konfirmasi Ulang’,MB_YesNo)=ID_Yes) then
    begin
    close;
    end;

    kenapa error trus, mohon bantuannya…!!!

  2. punya sya kok ga bisa masuk code ya yng button_keluar. saat di klik selalu muncul Cannot find implementation of method button_keluarClick.
    kenapa ya itu

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