Delphi: Message Dialog

Home » Pemrograman » Delphi: Message Dialog

Ketika kita berada di depan komputer kadang kala suka ada Message error muncul contohnya seperti ini:

Ya, itu adalah contoh error message box.

Sekarang saya akan berbagi informasi bagaimana cara membuat Message Dialog di Delphi.

Pertama kita buat dulu Form nya kurang lebih seperti gambar berikut:

dengan 5 buah button (Kalau bisa Caption button nya samakan dengan yg diatas ya) biar g pusing nanti memahaminya.

Sekarang kita mulai masuk ke codingnya.

Sebelum kita melakukan coding alangkah lebih baiknya kita seduh dulu kopi + beli cemilan dulu biar enjoy codingnya.

buat Script mtInformation:

Hasil script mtInformation:

Untuk Script mtWarning :

Hasil script mtWarning:

Untuk Script mtConfirmation :

Hasil script mtConfirmation:

Untuk Script mtError :

Hasil script mtError:

Dan ini script yang terakhir.

Script Selesai :

Hasil script Selesai:

Keterangan:

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;

const Msg: string; adalah pesan yang akan ditampilkan pada message box tersebut dengan apitan kutip satu
DlgType: TMsgDlgType; adalah type dari message dialog yang akan kita pakai diantaranya : mtWarning, mtError, mtInformation, mtConfirmation
Buttons: TMsgDlgButtons; adalah tombol yang akan ditampilkan di message box diantaranya: mbYes, mbNo, mbOk, mbCancel, mbAbort, mbRetry, mbIgnore
HelpCtx: Longint adalah default set agar sang script bisa di compile isinya 0.
Button Selesai adalah penunjukan eksekusi apabila kita menekan salah satu button di message box nya, Button Selesai ini bisa di pahami saat message dialog diberi klausa if (bisa dilihat di script Button no 5), Button Selesai ini berkaitan erat dengan jenis button yang diinginkan dan kita hanya mengganti (misal) mbYes menjadi mrYes berikut adalah return value nya : mrYes, mrNo, mrOK, mrCancel, mrAbort, mrRetry, mrIgnore
chr(13) adalah Enter atau Pindah baris