怎样枚举窗体中的所有label控件？

Question

rt.
Thanks.

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to form1.ComponentCount-1 do
    begin
      if form1.Components[i].ClassType=Tlabel then
        begin
          listbox1.Items.Add(form1.Components[i].Name);
        end;
    end;
//放一个listbox和N多个label

Answer 2

参考：http://soft.56kc.com/FileDown.aspx?FID=219

Answer 3

for i:=0 to ComponentCount-1 do
begin
  if Components[i] is TLabel then
  begin
    TLabel(Components[i]).Caption := 'Label' + IntToStr(i);  //你的操作！
  end;
end;

Answer 4

for i:=0 to ComponentCount-1 do
begin
  if Components[i] is TLabel then
  begin
    TLabel(Components[i]).Caption := 'Label' + IntToStr(i+1);//***你的操作！
  end;                                                       //label个数
end;

Answer 5

for i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TCheckBox then
    begin
      TCheckBox(Components[i]).Enabled:=false;
    end
  end;自己改一下