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..

markieren

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:

markieren

Delphi-Quellcode:

			  if CheckFields then

    ModalResult := mrOK

  else

    ModalResult := mrNone;

Dialog ModalResult setzen

Dialog ModalResult setzen

AW: Dialog ModalResult setzen

AW: Dialog ModalResult setzen

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 AW: Dialog ModalResult setzen 1. Feb 2011, 18:37 Setze den Wert doch mrCancel und erst wenn alle Felder gesetzt sind auf mrOK Markus Kinzler
	Zitat

API Registriert seit: 18. Apr 2004 637 Beiträge	#3 AW: Dialog ModalResult setzen 1. Feb 2011, 18:38 Lösung gefunden: markieren Delphi-Quellcode: if CheckFields then ModalResult := mrOK else ModalResult := mrNone;
	Zitat