2个不同的form裏面都有一個相同的button裏面的事件相同，如何從一個form的button事件調用另一個form的button事件？我已經use另一個form了，但是事件的sender參數不知道該怎麽填。謝了！

引言: 2个不同的form裏面都有一個相同的button裏面的事件相同，如何從一個form的button事件調用另一個form的button事件？我已經use另一個form了，但是事件的sender參數不知道該怎麽填。謝了！

請參考這篇http://delphi.ktop.com.tw/topic.php?TOPIC_ID=61115 和您所要問的問題一樣

你可已試著用TActionList來實作看看.

謝謝！Zard您好！我問的問題跟您說的那個有點不一樣，我是2個不同的form，用您的方法會出錯。謝謝jow，TActionList的方法已經會了，如果不用TActionList請問還有沒有別的方法？

給你一個範例, 注意紅字部份

// Form1
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
begin
  // 秀出按鈕的主Form Caption.
  ShowMessage(TForm(TButton(Sender).Parent).Caption);
end;    end.    //////////////////////////////////////////////////////////////////////    // Form2
unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unit1, StdCtrls;    type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation    {$R *.DFM}    procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Button1Click(Sender);
end;    procedure TForm2.FormCreate(Sender: TObject);
begin
  Visible := TRUE;
end;    end.    

這我到覺得你既然Form2的Button1會呼叫Form1的Button1的事件， 那倒不如在Form1的Button1裡面的Code獨立成為共用Function。 Form1跟Form2再Use unit3就好了。不這樣做的情況是爾後如果哪 天突然Form1的Button1事件失效(剪下貼上或者刪除然後又貼一個命名 一樣的的)這樣會使Form2的Button1也會失效。    觀念：既然有共用的地方，就要把Code抽出來可以共用。    

unit3;    type 
  TPublic:TForm
  public
    procedure doButtonThing(Sender:TObject);
  end;    

發表人 - StrongLemon 於 2004/12/19 00:38:07

同意楼上的大大。

謝謝StrongLemon，你的回答我很滿意！

順便問一下，到底是用function還是procedure?用function的話好像必須給它指明返回類型。

引言: 順便問一下，到底是用function還是procedure?用function的話好像必須給它指明返回類型。

上面的範例我打錯了.. 用function or procedure其實是取決於你的需求.. 當然你也可以用傳Var來達到回傳多個結果 一般而言都不傳回結果用procedure 傳回一個結果用Function XXX():Boolean; 傳回多個結果procedure(Sender:TObject;Var AWantStr,AWanStr1:String;Var AWantboolean:Boolean); function(Sender:TObject;Var AWantStr,AWanStr1:String;Var AWantboolean:Boolean):Boolean;