Forms Dialog Boxes dan Messages Pada Delphi

    Forms, Dialog Boxes, dan Messages

v  Menampilkan dan Menyembunyikan Form atau Window

Anda dapat bekerja dengan beberapa form pada sebuah project. Saat anda berada di Form1 untuk menampilkan form yang lain misal Form2 sbb :

Form2.Show; // Form2 ditampilkan

Form1.Hide; // Form1 disembunyikan

Membuka (Shows) Form2 (tetapi user diijinkan untuk dapat mengklik Form1)

Form2.ShowModal;

Membuka (Shows) Form2 (tetapi user TIDAK DIIJINKAN mengklik Form1)

v  Menampilkan Pesan (Message)

ShowMessage( ' YAKIN ANDA MAU KELUAR ’ );

Application.Terminate;// Menutup program aplikasi

Gambar 4.6 Kotak Dialog Satu Pilihan Ketika Keluar dari Form

Tampilan sederhana sebuah baris/teks; User dapat menekan tombol OK untuk keluar dari kotak pesan (message window).

MessageDlg('Msg',mtConfirmation,[mbYes],0);

Mirip ShowMessage tapi dapat lebih dari satu tombol pilihan.

if MessageDlg ('SYAHARUDDIN : 151074002 : IV.A : IAIN : 8C98', mtConfirmation, [mbYes,mbNo] ,0) = mrYES then

Application.Terminate;

end;

Gambar 4.7 Kotak Dialog Tiga Pilihan Ketika Keluar dari Form

Di samping itu juga, Delphi menyediakan beberapa pilihan pada saat kita akan menutup Program Aplikasi dengan berbagai tombol pilihan.

Adapun berbagai pilihan tersebut adalah:

Flag	Keterangan
MB_ABORTRETRYIGNORE	Kotak pesan memiliki tiga tombol, yakni Abort, Retry, dan Ignore
MB_DEFBUTTON1	Tobol pertama dijadikan sebagai tombol Default
MB_ICONNASTERISK	Kotak pesan berikon gambar huruf “I”
MB_ICONNEXCLAMATION	Kotak pesan berikon gambar tanda seru
MB_ICONHAND	Kotak pesan berikon gambar berhenti/stop
MB_ICONINFORMATION	Kotak pesan berikon gambar huruf “I”
MB_ICONQUESTION	Kotak pesan berikon gambar tanda tanya.
MB_ICONSTOP	Kotak pesan berikon gambar berhenti/stop
MB_OK	Memiliki satu tombol, yakni OK
MB_OKCANCEL	Memiliki dua tombol, yakni OK dan Cancel
MB_RETRYCANCEL	Memiliki dua tombol, yakni Retry dan Cancel
MB_YESNO	Memiliki dua tombol, yakni Yes dan No
MB_YESNOCANCEL	Memiliki tiga tombol, yakni Yes, No, dan Cancel