Question

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

Answer 1

可以的。
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;