Verlassen eines Edit-Feldes verhindern

[Jester]

Hi Leute,

wie kann ich verhindern, dass der Anwender ein Edit-Feld verlässt, wenn es keinen korekkten Inhalt besitzt?

Beim OnExit-Ereignis vom Edit-Feld überprüfe ich dessen Inhalt und wenn der nicht korrekt ist, kommt eine Fehlermeldung. Nach dieser Fehlermeldung soll der Focus wieder auf dem Edit-Feld sein.

Axo, das Edit-Feld ist eine eigene Komponente und die fehlerprüfung findet innerhalb dieser Komponente statt.

[Daniel B]

Hallo,

Delphi-Quellcode:

if InhaltFalsch then
begin
  //Meldung
  Edit1.SetFocus;
end
else
begin
  //Mach was anderes
end;

Das ganz im OnExit des Edits.
Noch besser wäre, dem User gar nicht die möglichkeit geben was falsches zu schreiben.

Grüsse, Daniel

[Jester]

Thx!