狀況如下： 有一個容器GroupBox1，內有兩個元件Button1(TButton)與Memo1(TMemo)。 希望的結果： 透過程式判斷(TButton)是否存在於GroupBox1。 也就是類似以下這樣(這種寫法當然是錯的)： If GroupBox1.TButton.Name = 'Button1' Then Begin ShowMessage('HAHA'); End;

hi,kenny236:  應該沒有像你說的那麼方便,必需自己寫 function ,利用TComponent.GetParent的特性,達到你要的目地,如下:

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  str:String;
  cmp:TComponent;
begin
  str:='';
  for i:=0 to Self.ComponentCount-1 do
  begin
    cmp:= Components[i].GetParentComponent;
    if cmp = GroupBox1 then
      str:=str #10#13 Components[i].Name;
  end;
  ShowMessage(str);
end;

你好 也可以試試看用跑controlcount的方式喔!!

var i : integer;
begin
  for i := 0 to GroupBox1.controlcount - 1 do
  begin
    if GroupBox1.controls[i] is TButton then
    begin
      if (GroupBox1.controls[i] as TButton).Name = 'Button1' then
        ShowMessage('HAHA');
    end;
  end;
end;

試試看吧!! Pillar Wang

------
Pillar Wang