delphi动态创建控件

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