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;

顶一下

(0)

0%

踩一下

(0)

0%