Mega Code Archive

 

Categories / Delphi / Forms

 

Messagedlg komut parametreleri

{ 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;