將一些procedure 放在數組中 TProcArray = Array [CONST_PROC_MIN..CONST_PROC_MAX] of Procedure; 然後將他們穿給某個Form. ========================= 語言是工具，最重要是如何解決問題。

我想我個功力可能比較淺我只能想到 TProcArray = Array [CONST_PROC_MIN..CONST_PROC_MAX] of Procedure; procedure 必須是一種型態 例如 TNotifyEvent 試做一個實驗用的程式 你看看是不是您要的  

...省略
 TProcArray = Array [1..3] of TNotifyEvent;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure Pro1(sender:Tobject);
    procedure Pro2(sender:Tobject);
    procedure Pro3(sender:Tobject);
  public
    { Public declarations }
    proArry : TProcArray;
  end;    var
  Form1: TForm1;    implementation
uses Unit2 ;
{$R *.dfm}    { TForm1 }    procedure TForm1.Pro1(sender: Tobject);
begin
  showmessage('Pro1');
end;    procedure TForm1.Pro2(sender: Tobject);
begin
  showmessage('Pro2');
end;    procedure TForm1.Pro3(sender: Tobject);
begin
  showmessage('Pro3');
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  proArry[1] := Pro1 ;
  proArry[2] := Pro2 ;
  proArry[3] := Pro3 ;
  with TForm2.Create(nil) do
    try
       Button1.OnClick := proArry[1] ;
       Button2.OnClick := proArry[2] ;
       Button3.OnClick := proArry[3] ;
       ShowModal ;
    finally
      Free;
    end;
end;    //----Unit2------------------
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
end.
 

---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

Leway 你好: 參考看看: 1. 用 Class 包裝 Procedure: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40505 2. 用 TStringList 包裝 Procedure: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41180 3. Form 之間傳遞參數問題, 請搜尋一下, 本站已有許多相關討論.

謝謝！ ========================= 語言是工具，最重要是如何解決問題。