我试了一下,如何不是采用dll方式的话,能够正确嵌入。
代码如下:
if not assigned(form1) then
Application.CreateForm(Tform1,form1);
with form1 do
begin
Parent := panel;
align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Top := 0;
Left := 0;
WindowState:=wsMaximized;
show
end; 但是如果采用dll方式的话,发现什么反应都没有,怎么回事?代码如下:
DLLName := getDisposalDLLName;
LoadDLL(DLLName);
if not assigned(ChildForm) then begin
ChildForm:=ShowChild(Application,@FormFreeCallBack,'','','dBAlias_ND',ssdw,Userid,ScrollBox1);
end; with ChildForm do
begin
Parent := scrollbox1;
align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Top := 0;
Left := 0;
WindowState:=wsMaximized;
show
end;
代码如下:
if not assigned(form1) then
Application.CreateForm(Tform1,form1);
with form1 do
begin
Parent := panel;
align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Top := 0;
Left := 0;
WindowState:=wsMaximized;
show
end; 但是如果采用dll方式的话,发现什么反应都没有,怎么回事?代码如下:
DLLName := getDisposalDLLName;
LoadDLL(DLLName);
if not assigned(ChildForm) then begin
ChildForm:=ShowChild(Application,@FormFreeCallBack,'','','dBAlias_ND',ssdw,Userid,ScrollBox1);
end; with ChildForm do
begin
Parent := scrollbox1;
align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Top := 0;
Left := 0;
WindowState:=wsMaximized;
show
end;
解决方案 »
- 关于dbchart的问题,高手进
- 菜鸟问:QuickRep过滤问题!
- 为什么我批量产生的线程--传入的数据都变成了最后一次的那个?详情进来看看,很奇怪
- 高手请帮忙!
- 组织一个DELPHI开发学习小团队(注:非赢利的,指在DELPHI初学者共同学习的集体,详细内容请见内文)有意者请进
- 一个关于hook的问题(比较难)分不够再加
- dll中的cli子窗体如何显是在主mdi窗体中的panel中,请指教
- 1个是数码相机,另1个是扫描仪,我想随时选择任1个输入源,怎么办?
- idhttp 写了一个类似网页爬虫 发现内存一直再增大直到崩溃
- 请教各位一个很简单的问题:
- 關於大系統的分割
- 大家一个人在外漂泊好辛苦,进来乐一乐!!:)
采用dll方式,如果隐去Parent := scrollbox1;那么窗体能够正常调用,就是加了这句嵌入的语句,窗体就死活看不到,但是所有语句是执行了的
LoadDLL(DLLName);
if not assigned(ChildForm) then begin
ChildForm:=ShowChild(Application,@FormFreeCallBack,'','','dBAlias_ND',ssdw,Userid,ScrollBox1);
end; with ChildForm do
begin
Parentwindow := H;//H为scrollbox1的Handle有些控件不能传入dll,将句并传入就好了
align := alClient;
BorderStyle := bsNone;
BorderIcons := [];
Top := 0;
Left := 0;
WindowState:=wsMaximized;
show
end;
http://expert.csdn.net/Expert/topic/2241/2241330.xml?temp=.352749问题解决一起结贴