Membuat Message Dialog (Pesan Peringatan) pada Delphi

Contoh Message Dialog

Dalam pemrograman suatu tindakan pada aplikasi adalah sebuah pesan konfirmasi yaitu untuk melanjutkan suatu tindakan didalam sebuah program atau untuk membatalkan bahkan menghentikannya, seperti halnya pada message dialog ini, langsung saja bagaimana untuk membuatnya ini, masukkan kode dibawah ini pada tombol (klik 2x pada tombol)yang akan diberi sebuah pesan peringatan atau konfirmasi;

if messagedlg('Anda Ingin Keluar Aplikasi ini?',mtconfirmatin,[mbYes,mbNo],0)=mrYes then application.Terminate; end;

Masukkan kode diatas diantara begin dan end pada source code tombolnya, dan hasilnya akan seperti dibawah ini :

Berikut ini macam-macam Message dialog;

• mtWarning (Lambang peringatan)
• mtError  (Lambang error)
• mtInformation  (Lambang Informasi) 
• mtConfirmation  (Lambang Konfirmasi)
• mtCustom  (Ini akan muncul tanpa simbol)

Untuk menggantinya tinggal ganti script yang saya beri warna merah diatas.