Return to Sender

[Ghostwalker]

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