Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
Delphi

Penggunaan Delphi Message Dialog #17

Ayam memiliki dua kaki dan tidak bisa berenang

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

Pasti kita sudah sering melihat kejadian seperti gambar ini :

seperti ini
message dialog
atau seperti 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 :

formnya

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

mtinformation
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

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

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

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

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 :mrgreen:

yosh, sekian tulisan kali ini, semoga bermanfaat 😮

(*AFK)

Related Articles

9 Comments

  1. info dikit nih gan buat helpctx:longint itu ane ubah 100 atau angka berapapun gak ada ngaruhnya apa-apa :bingung, cuma kalo diilangin gak bisa dijalanin :hammer

    chr(13), angkanya bisa diganti juga sama chr(10), fungsinya sama-sama buat enter, mungkin sekaian aja dishare tabel keluaran chr tersebut :ngakak

  2. Gan,
    kalo pangkat rumusnya apa ? :mata
    edit1.text=Bilangan yang mau dipangkatkan
    edit2.text=bilangan pemangkat

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button