delphi中 如何为动态按钮添加动态事件？？

可以的。

B 文件

procedure newbutton(ANotifyEvent: TNotifyEvent)

var

button : Tbutton

begin

button := Tbutton.create(nil)

button .onclick := ANotifyEvent ///// 这就是从A文件里面传过来的单击事件 不用引用a单元

end

A文件动态生成按钮事件改成 //

procedure newbutton1

begin

newbutton(ClickSelf)// 这里调用B文件

end

MyButtonClick过程需要属于某个对象，才可以；即MyButtonClick需要定义在某个对象内部，且要符合Procedure (Sender:TObject) 规范；然后再赋值给MyButton1.OnClick。

例如：

================================================================

type

TForm1 = class(TForm)

Button1: TButton

procedure Button1Click(Sender: TObject)

private

{ Private declarations }

procedure Button1Click2(Sender: TObject)

public

{ Public declarations }

end

var

Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.Button1Click2(Sender: TObject)

begin

//

end

procedure TForm1.Button1Click(Sender: TObject)

begin

button1.on .OnClick:= Button1Click2

end

end.

---