5,388
社区成员
发帖
与我相关
我的任务
分享
type MyFrame = class(TFrame)
Button1: TButton; //用于测试的控件,没改变任何特性
Memo1: TMemo; //用于测试的控件,没改变任何特性
public
constructor Create(owner : TComponent); override;
destructor Destroy(); override;
end;
.........
procedure GetFrameClassName(var s : String); stdcall;
implementation
uses Dialogs;
{$R *.dfm}
procedure GetFrameClassName(var s : String); begin
//主form通过s得到BPL中注册的MyFrame名字,然后FindClass/GetClass
s := MyFrame.ClassName;
end;
constructor MyFrame.Create(owner : TComponent); begin
inherited Create(c);
ShowMessage('Create'); //测试中可正常显示这个信息
end;
destructor MyFrame.Destroy(); begin
ShowMessage('7788?>..');
inherited Destroy();
end;
........