创建的时候,可以保存这些对象。如果没有保存,那只能查询了。
for i := 0 to ComponentCount - 1 do
  if (Components[i] is TLabel) and (TLabel(Components[i]).Caption = 'Your Caption') then begin
    Result := TLabel(Components[i]);
    Break;
  end;

解决方案 »

  1.   

    to agui(阿贵):我用过下标,没有用的因为我的窗体上还有其他动态创建的对象.
      

  2.   

    那你开一个数组,专门存放动态创建的TLabel对象,不就得了。如果数量不定,用TComponentList.
      

  3.   

    to chechy(chechy):我做的是一个客户机的程序,用数组开销太大了,因为随用户的发出的栏目越多“用户示”就越大。而且,不利于才打开程序的用户
      

  4.   

    to chechy(chechy):我写的也是内势于上面的代码,不过我没有用
    TLabel(Components[i]).Caption