BPL中自定义的Frame无法显示(Delphi 7)

EDDGA 2019-03-04 02:35:44
问题:把MyFrame放在bpl ,在主form中LoadPackage、Create(Self)、parent := Self(分别试过设定parent为form和panel),
结果MyFrame没显示示出来。

主form中可showmessage到MyFrame.ComponentCount为2,也可正常读出MyFrame.Button1.Caption和Memo1.text,
MyFrame却不显示,请指点一下?




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;

........
...全文
214 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
CACACACACA 2019-05-16
  • 打赏
  • 举报
回复
没setBounds吧
看那山瞧那水 2019-03-10
  • 打赏
  • 举报
回复
具体代码呢? 得到class后,还得NewInstance(),Create(),还得设置parent....

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧