Delphi Message Dialog

Pasti kita sudah sering melihat kejadian seperti gambar ini:

ya itu dalah error sample message 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. :D
oke lets start saja dah daripada nunggu lama fans-fans ku udah nunggu lama kasian disana dah pada mau minta tanda tangan heheheheh :k :k :k ;)

sebenarnya fungsi untuk mengakses message dialog kata paman borland embarcado :x (gatau nama)bunyinya kaya gene :D
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;

for last button

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 :D :D :
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) :D
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 :D

Posted in: Delphi