小问题，教教我吧。

Question

我的一个表单中有很多TLabel。如Label1,Labe2,,,,等等很多。我想用一句话统一给他们的属性赋值。如Enbled:=False.如何实现呀。

Answer 1

var
  i:integer;
begin
  for I := 1 to n do
  begin
    Tlabel(self.FindComponent('label'+IntToStr(I))).enable:=false;
  end;
end;

Answer 2

var
  i: integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
  begin
    if (self.Components[i] is TLabel) then
      (self.Components[i] as TLabel).Caption := 'asds';
  end;

Answer 3

var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
     if (Components is TLabel) then Enabled:=False;
end;

Answer 4

var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
     if (Components[i] is TLabel) then
        (Components[i] as TLabel).Enabled:=False;
end;