我有一組控件，想根據指定的控件名稱來檢索到這個控件，如何實現呢？ var MyButtonName: String; ... MyButtonName := 'SeachButton1'; lable1.caption := (MyButtonName as TBitBtn).Name; 這麼寫編譯不通過，希望高手指點一下，謝謝﹗ 發表人 - redhpc 於 2005/07/11 16:56:21

redhpc您好： 这是不是您所要的？

procedure TForm1.Button2Click(Sender: TObject);
var
  I : Integer;
begin
  for I := 0 to Self.ComponentCount - 1 do
    begin
      if Self.Components[i] IS TBitBtn then
        begin
         if TBitBtn(Self.Components[i]).Name='SeachButton1' then
           showmessage('Find!');
        end;
    end;
end;

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

補充： 直接一點用，FindComponent lable1.caption := (FindComponent(MyButtonName) as TBitBtn).Name; ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

謝謝兩位的幫忙﹗ 好象不能把分同时给两個人哦﹗ deity兄的方法以前也用過，wameng兄的方法使用上更簡單一點，所以把分给了wameng，呵呵﹗