abhängiges ModalResult

[stoermi]

Hallo!

Ich öffne ein neues Fenster per ShowModal.
Dort befindet sich ein Editfeld und ein Button.

Bei Klick auf den Button, soll das Fenster wieder geschlossen werden.
Jedoch nur, wenn auch eine richtige Eingabe in das Editfeld vorgenommen wurde.

Wie kann ich dies überprüfen und steuern.
Prüfe ich über if und ändere individuell das ModalResult, passiert nichts, bzw. nicht das richtige...
Muss ich so etwas über Exeptions lösen, oder wie?

Schönen Sonntag noch!

stoermi

[Luckie]

ModalResult gibt doch nur an, wie dein Fenster geschlossen wurde.

Frag mit if ab und setzte in OnCloseQuery CanClose entsprechend.

[Christian Seehase]

Moin Stoermi,

Zitat von stoermi:

Prüfe ich über if und ändere individuell das ModalResult, passiert nichts, bzw. nicht das richtige...

und wie prüfst Du?

Mal ein Beispiel:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 'Korrekt' then ModalResult := mrOK;
  Edit1.SetFocus;
end;