Eigenschaften von Objektgruppen verändern

[Thomas F]

Hallo,

wie kann ich die Eigenschaften von mehreren Objekten gleichzeitig verändern.
Zum Beispiel ,wenn ich 20 Label habe und bei allen die Eigenschaft

label 1,2,3,4,5...20: enabled:= true oder enabled:=false;

setzen möchte.<BR>
Bitte Code angeben. <BR>
Gruß

Thomas

[Mario.Noack]

Informiere Dich in der Hilfe zum Thema FindComponent.<p>
Schöne Grüße, Mario Noac

[Frank Reim]

Hallo Thomas,<BR><BR>
zu deinem Beispiel - Fall zwei Beispiel - Lösungen:<BR><BR>
füe alle Controls des Formulares:<PRE>
procedure Tfrm.Button1Click(Sender: TObject);
Var
i : Integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TLabel then
TLabel(Components[i]).Enabled := False;
end;
</PRE>
für Alle Controls auf einer Panel:<PRE>
procedure Tfrm.Button2Click(Sender: TObject);
Var
i : Integer;
begin
for i := 0 to pnl.ControlCount - 1 do
if pnl.Controls[i] is TLabel then
TLabel(pnl.Controls[i]).Enabled := False;
end;
</PRE>
Gruß, Fran