Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

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

Re: mehrere Objekte aufzählen...

  Alt 29. Aug 2006, 17:50
Da du die Editfelder nicht als Array ansprechen kannst, bleibt dir nur der Weg über Components.

Delphi-Quellcode:
procedure TForm1.ChangeVisibility (IsVisible : boolean) ;
var
 i : integer ;
begin
     for i := 0 to ComponentCount-1 do
         if (Components[i] is TEdit) then with (Components[i] as TEdit) do begin
              Visible := IsVisible ;
         end ;
end ;
  Mit Zitat antworten Zitat