membuat message box

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 Konfirmasi ‘Yakin 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 :

1	procedure Tform_materi16.button_informasiClick(Sender: TObject);

2

begin

3

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

5

6

end;

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

01	procedure Tform_materi16.button_konfirmasiClick(Sender: TObject);

02

begin

03

04	if(application.MessageBox('Mau Melihat Informasi lainnya','Konfirmasi',MB_YesNo)=ID_yes) then

05

begin

06	showmessage('Berikut ini adalah Message Box Berbentuk Konfirmasi');

07

end

08

else

09

begin

10	showmessage('Terima kasih Banyak');

11

end;

12

13

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.

1	procedure Tform_materi16.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan Keluar dari Program','Konfirmasi   Ulang',MB_YesNo)=ID_Yes) then

5

begin

6

close;

7

end;

8

9

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

sumber : http://catataneko.wordpress.com