57
2024-01-10 10:49
admin可以的。
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;
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-