Ich würde alle Prüfungen beim Klick auf den OK-Button durchführen.
Die Procedure ControlError setzt den Fokus auf das Control, das Ärger macht,
und erzeugt eine passende Fehlermeldung.
Benutzer kann korrigieren oder alles Abbrechen.
Delphi-Quellcode:
procedure ControlError(c: TWinControl;
const msg:
string);
begin
c.SetFocus;
raise Exception.Create(msg);
end;
procedure TForm1.ButtonOKClick(Sender: TObject);
begin
if EditTelefon.Text ='
'
then
begin
ControlError(EditTelefon, '
Telefonnr fehlt !!');
end;
if Length(Editxxxx.Text) < 8
then
begin
ControlError(Editxxxx, '
Nummer zu kurz !!');
end;
...
end;