請教各位前輩    如何把Form1.Button1的OnClick設為Form2.Button1 的事件??    如把Form1.Button1.OnClick設成Form2的Button1Click 但在程式碼使用 form1.Button1.OnClick :=form2.Button1Click ; 可以成功 但如果在設計期時,無法在Object Inspector 設定OnClick為form2.Button1Click 會有錯誤如下:     萬分感謝.....謝謝.....謝謝 Form2 程式 ----------------------- unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin Showmessage('Form2'); end; end. ------------------------------------------------------------------------

用一個datamodule 裝 一個 actionlist 新增一個action 這個datamodule給兩個form共用

引言: 用一個datamodule 裝 一個 actionlist 新增一個action 這個datamodule給兩個form共用

謝謝 hahalin 前輩 指導 我設定結果如下" 可以設定 Button1.Action =DataModule2.Action1 逹成要的效果 但無法設定 Button1.DataModule2.Action1Execute 前輩是指使用 Button1.Action 來設定嗎? 當然也是可以, 但不知是否可能指接指定, 別的 Form (DataModule)的 procedure Button1.DataModule2.Action1Execute 謝謝前輩....

你要在design time能動態指定, 不同的單元要共用 onclick事件 從object inspector就拉不到了 所以我建議用action 那如果非得要onclick事件 於runtime動態指定可以辦得到 我試過了,以上的不是空口說白話 如果有更好的做法,還請其他同學斑斑忙