Zitat von
eticket:
So wie beschrieben kommt dann die
Exception, wird bestätigt und
wieder auf OK gedrückt und weg ist der Dialog mit den falschen Angaben.
Der OK-Button muss im Property ModalResult den Wert mrNone haben.
Im Event OnClick werden dann zuerst die Plausiprüfungen gemacht.
Als letzte Zeile folgt dann
Delphi-Quellcode:
ModalResult := mrOK;
end;