Ereignisse von Edit Feldern abbrechen

[shmia]

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;