目前表單有個 PageControl 內有 A, B 兩個 tabsheet, C 是 Frame, C 下有一個函式 F, A,B 都使用了 C Frame, PageControl 目前 tabsheet 的 index, 可由 PageControl.ActivePageIndex 取得, 請問在目前表單中我要如何經由 ActivePageIndex 的值去呼叫 F, TFrame( ????.(ActivePageIndex) ).F(); 請指教,謝謝.

試試如下的做法:

var
  f: TFrame;
  i: integer;
  tab: TTabSheet;
begin
  tab := PageControl1.ActivePage;
  for i := 0 to tab.ControlCount - 1 do
  begin
    if tab.Controls[i] if TFrame then
    begin
      f := TFrame(tab.Controls[i]);
      // 接著就可以用 f.xxx 來控制這個 TFrame 了
    end;
  end;
end;

-- hagar.

謝謝 hagar 快速的回應, 想再問, 因為我 A,B 兩個 tabsheet 裡面都只有一個物件 C Frame, 所以我使用 tab.Controls[0] 這樣的方式去取得那個 Frame, 可是要是有多個物件的話, 可以在 design time 就看出 tab.Controls[index] 的 index 值嗎? 謝謝.

在 Form 上按右鍵，選 View As Text 可以看到該 Form 的 dfm 檔內容 小弟的例子如下:

object Form1: TForm1
  Left = 177
  Top = 113
  Width = 501
  Height = 427
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Courier New'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 16
    Top = 112
    Width = 449
    Height = 193
    ActivePage = TabSheet1
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 128
        Top = 40
        Width = 42
        Height = 14
        Caption = 'Label1'
      end
      object Button4: TButton
        Left = 24
        Top = 32
        Width = 75
        Height = 25
        Caption = 'Button4'
        TabOrder = 0
      end
      object Memo1: TMemo
        Left = 32
        Top = 72
        Width = 185
        Height = 89
        Lines.Strings = (
          'Memo1')
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 264
        Top = 32
        Width = 105
        Height = 89
        Caption = 'Panel1'
        TabOrder = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
    end
  end
end

您可以看到在 TabSheet1 的下一層分別有 Label1/Button1/Memo1/Panel1 四個 object 其中 Label1 為第 1 個 小弟用一 Button1 的 Click 來測試 發現 TabSheet1.Controls[0].Name 為 Label1 您可試試由這個方式來檢查看看是不是每次都對 -- hagar.