Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Alle EditFields eines Panels auslesen

  Alt 10. Mär 2006, 12:55
Ergänzend zu voriger Antwort muss auch noch darauf geachtet werden, ob die Edit Felder auch auf dem gewünschten Panel liegen... Etwa so.

Delphi-Quellcode:
procedure TForm1.ClearEditsOnPanel (Panel : TPanel) ;
var
  i: Integer;
begin
     for i := 0 to ComponentCount - 1 do
       if Components[i] is TEdit
       then if TEdit(Components[i]).Parent = Panel1
            then TEdit(Components[i]).Text := '' ;
end;
  Mit Zitat antworten Zitat