怎样在DLL中动态创建TSpeedButton,TPanel等可视控件及定义事件?请不要给我举如何创建窗体的例子。谢谢!
最好有Demo。我的代码:
procedure CreateControl(aParent:TWinControl);stdcall;
var
NewButton:TSpeedButton;
begin
NewButton:=TSpeedButton.Create(aParent);
NewButton.Parent:=aParent;
NewButton.Caption:='aaa';
aNewButton.Left:=0;
NewButton.Top:=0;
NewButton.Width:=30;
NewButton.Height:=40;
NewButton.OnClick:=CustEvent; //自定义事件
end;
最好有Demo。我的代码:
procedure CreateControl(aParent:TWinControl);stdcall;
var
NewButton:TSpeedButton;
begin
NewButton:=TSpeedButton.Create(aParent);
NewButton.Parent:=aParent;
NewButton.Caption:='aaa';
aNewButton.Left:=0;
NewButton.Top:=0;
NewButton.Width:=30;
NewButton.Height:=40;
NewButton.OnClick:=CustEvent; //自定义事件
end;
在DLL创建MDIFORM,跟你这个差不多的
different between BPL and DLL
http://borland.mblogger.cn/aiirii/posts/12450.aspx