可以的。
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;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024