Penggunaan Delphi Message Dialog #17

andrypein.net : Delphi tutorial yang menampilkan koding mengenai message dialog, error, confirmation dkk, selamat menyaksikan.

Pasti kita sudah sering melihat kejadian seperti gambar ini :

ya itu adalah macam jenis error sample dialog box.

Jika pada postingan pertama kita tentang pembukaan delphi yang membahas aplikasi newbie tentang showmessage maka untuk kali ini akan membahas bukan hanya showmessage nya saja, tapi dengan Message dialog, untuk menggunakan fungsi message dialog pada delphi cukup mudah.

sebenarnya fungsi untuk mengakses message dialog memiliki sabda seperti ini :

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

untuk lebih jelasnya bentuk formnya dulu ya kaya gini :

dengan 6 buah button (kalo bisa caption buttonnya samakan saja dengan sample diatas)
untuk button mtInformation scriptnya kaya gni

procedure TForm1.Button1Click(Sender: TObject);
begin
 MessageDlg('Ini Tombol Pesan dengan icon Information'+chr(13)+'dengan tombol yes and no',mtInformation,[mbYes,mbNo],0);
end;

untuk tombol mtConfirmation

procedure TForm1.Button2Click(Sender: TObject);
begin
 MessageDlg('Ini Tombol Pesan dengan icon Confirmation'+chr(13)+'dengan tombol Ok and Cancel',mtConfirmation,[mbOk,mbCancel],0);
end;

ini untuk mtwarning

procedure TForm1.Button3Click(Sender: TObject);
begin
MessageDlg('Ini Tombol Pesan dengan icon Warning'+chr(13)+'dengan tombol yes,no dan cancel',mtWarning,[mbYes,mbNo,mbCancel],0);
end;

untuk mterror

procedure TForm1.Button4Click(Sender: TObject);
begin
 MessageDlg('Ini Tombol Pesan dengan icon Error'+chr(13)+'dengan tombol Abort,Retry dan Ignore',mtError,[mbAbort,mbRetry,mbIgnore],0);
end;

untuk mtCustom

procedure TForm1.Button5Click(Sender: TObject);
begin
 MessageDlg('Ini Tombol Pesan tanpa icon'+chr(13)+'dengan tombol all dan help',mtCustom,[mbAll,mbHelp],0);
end;

last code no ss, coba saja

procedure TForm1.Button6Click(Sender: TObject);
begin
 if MessageDlg('Sekian saja dahulu yah hehe,kalo pencet yes bakal exit',mtInformation,[mbYes,mbNo],0) = mrYes then 
  form1.Close;
end;

ini penjelasannya :

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

dimana 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, mtCustom

Buttons: TMsgDlgButtons;adalah tombol yang akan ditampilkan di message box diantaranya:
mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbHelp

HelpCtx: Longint adalah default set agar sang script bisa di compile isinya 0
dan return value adalah penunjukan eksekusi apabila kita menekan salah satu button di message box nya, return value ini bisa di pahami saat message dialog diberi klausa if (bisa dilihat di script tombol no 6) 😀

return value ini berkaitan erat dengan jenis button yang diinginkan dan kita hanya mengganti (misal) mbYes menjadi mrYes

berikut adalah return value nya :
mrYes, mbNo, mrOK, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrHelp

NB: chr(13) adalah ENTER atau pindah baris

yosh, sekian tulisan kali ini, semoga bermanfaat 😮

(*AFK)