Eine weiter Möglichkeit besteht darin sich die fehlerhaften Felder zu merken und erst am Schluß
das ganze zu handhaben. Das wär dann in etwa folgender Code:
Delphi-Quellcode:
var errlist : TObjectlist;
begin
errlist := TObjectlist.create....
//Hier wird geprüft und die entsprechenden edits ggf. in die liste eingetragen
if (edit1.text = '') then
errlist.add(edit1);
if (edit2.text = '') then
errlist.add(edit2);
:
//Wenn Fehler da sind, dann tu was...
if (errlist.count > 0) then
begin
for I := 0 to errlist.count -1 do
begin
Tedit(errlist.items[i]).color := clLime;
if (i = 0) then
Tedit(errlist.items[i]).setfocus;
end;
end;
//Wichtig...die Liste wieder freigeben. Nicht aber die edits !!
errlist.free;
end;
Hoffe das hilft. Ausprobiert hab ich es allerdings jetzt nicht.
Gruß
Uwe