{
MessageDlg Tipleri:
mtWarning :Sarı ünlem işareti ile uyarı bildirmekde Kullanılır.
mtError :Kırmızı Dur işareti ile hata bildirmekte kullanılır.
mtInformation :Mavi i sembolu ile bilgi vermekde kullanılır.
mtConfirmation :Yeşil Soru işareti ile onay vermenizi sağlar.
mtCustom :Herhangibir sembol içermez. Çalışan Exe dosyanın adını alır.
MessageDlg Button Tipleri:
mbYes : Evet
mbNo : Hayır
mbOK : Tamam
mbCancel : İptal
mbAbort : Kes
mbRetry : Tekrar Dene
mbIgnore : Hatayı Geç
mbAll : Hepsi
mbNoToAll : Hepsine Hayır
mbYesToAll : Hepsine Evet
mbHelp : Yardım
}
Örnek:
procedure TForm1.Button1Click(Sender: TObject);
Begin
MessageDlg('Bu Bilgi Mevcuttur!..',
mtWarning, [mbOK], 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
IF MessageDlg('Edit Bilgisini Silmek İstediğinizden Emin misiniz?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
Edit1.Text:='';
end;
end;