Einzelnen Beitrag anzeigen

API

Registriert seit: 18. Apr 2004
637 Beiträge
 
#1

Dialog ModalResult setzen

  Alt 1. Feb 2011, 18:33
Hi,

In einem Dialog hat der "OK"-Button per Default den Wert mrOk. Nun soll der Wert auf mrCancel gesetzt werden, wenn Felder im Dialog nicht ausgefüllt wurden. Folgendes funktioniert leider nicht..

Delphi-Quellcode:
procedure TfrmSettings.btnOKClick(Sender: TObject);
begin
  if CheckFields then
    btnOK.ModalResult := mrCancel
  else
    btnOK.ModalResult := mrOK
end;
  Mit Zitat antworten Zitat