Dialog ModalResult setzen

[API]

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;

[mkinzler]

Setze den Wert doch mrCancel und erst wenn alle Felder gesetzt sind auf mrOK

[API]

Lösung gefunden:

Delphi-Quellcode:

  if CheckFields then
    ModalResult := mrOK
  else
    ModalResult := mrNone;