4 Cara Menampilkan Pesan / Message Box di Delphi

Biasanya kalau kita ingin keluar dari Form pada Delphi, ada kotak dialog berisi pesan yang ingin kita sampaikan, baik berupa perintah Yes, No, Cancel, Abort, atau pesan nama pencipta dari program tersebut. Berikut caranya.

Pertama.

        Showmessage('Syaharuddin');

close;

Kedua.

       

if messagedlg('Yakin Anda Ingin Keluar...?',mtconfirmation,[mbYes]+[mbNo],0)=mrYes then begin

close;

end;

end;

     

Jika Anda ingin menambahkan dengan Cancel atau yang lainnya, maka bisa edit sendiri di bagian ini cetak tebal. Misalnya mau menambahkan Cancel, maka:

if messagedlg('Yakin Anda Ingin Keluar...?',mtconfirmation,[mbYes]+[mbNo]+[mbCancel],0)=mrYes then begin

close;

end;

end;

Ketiga.

        Kotak pesan ini terdiri dari dua baris.

if messageDlg ('Yakin Anda Ingin Keluar ...?'+chr(10)+' '+ 'Programer:Syaharuddin', mtInformation,  [mbYes]+[mbNo],0) = mrYes then begin

application.terminate;

end;

Keempat.

        Gabungan satu dan dua.

       

Showmessage('Syaharuddin');

if messagedlg('Yakin Anda Ingin Keluar...?', mtconfirmation,[mbYes]+[mbNo],0)= mrYes then begin

Application.Terminate;

end;

Anda bisa menggabungkan antara satu sama lainnya, sesuai kebutuhan. Semoga Bermanfaat.