关于DLL组件问题。提示：Control '' has no parent window

[tengjian1981]

我在DLL程序中写了一个过程：
procedure OpenForm(mainForm:TForm;DS:Tdataset);stdcall;
var
Form1: TForm;
ptr:PLongInt;
QuickRep1: TQuickRep;
begin
ptr:=@(Application.MainForm);
ptr^:=LongInt(mainForm);
Form1:=TForm.Create(mainForm);
QuickRep1:=TQuickRep.CreateParented();
QuickRep1:=TQuickRep.Create(Form1);
QuickRep1.DataSet:=DS;
QuickRep1.ReportTitle:='DLL';
QuickRep1.Zoom:=100;
QuickRep1.PreviewModal;
end;
但是在另外的程序中调用是提示“Control '' has no parent window”
而我把这个过程直接写在程序中，不用通过DLL来调用就不报错！

望高手来赐教，在线等

[loveWife]

看你的写法程序应该是Mdi多文档的界面了
不知道你调用时怎样写的你如果传第Application.mainform 应该不会错，如果传self 或按牛所在的form1 肯定要错。

[tengjian1981]

我是这样写的：
var
DS:TDataSet;
begin
DS:=DataSource1.DataSet;
OpenForm(Application.MainForm,DS);
主要是这个QuickRep1:=TQuickRep.Create(Form1);可能有问题

[amitabha]

QuickRep1:=TQuickRep.CreateParented();
QuickRep1:=TQuickRep.Create(Form1);
--------
??

[zklove]

QuickRep1:=TQuickRep.CreateParented(from1.Handle);

[yinxu]

procedure OpenForm(mainForm:TForm;DS:Tdataset);stdcall;
var
Form1: TForm;
ptr:PLongInt;
QuickRep1: TQuickRep;
begin
ptr:=@(Application.MainForm);
ptr^:=LongInt(mainForm);
Form1:=TForm.Create(mainForm);
QuickRep1:=TQuickRep.CreateParented();
QuickRep1:=TQuickRep.Create(Form1);
QuickRep1.Parent := Form1;
QuickRep1.DataSet:=DS;
QuickRep1.ReportTitle:='DLL';
QuickRep1.Zoom:=100;
QuickRep1.PreviewModal;
end;

[aladdin2006]

没看代码 看了错误信息，可以认为 你引用对象是继承来的，而你没有添加对象的父类

[tengjian1981]

难道csdn里面没有Delphi高手吗？？？

[tengjian1981]

这局话是没有：QuickRep1:=TQuickRep.CreateParented();
忘了删除掉

[wycg_cnh20]

加一句：QuickRep1.Parent:=Form1;

[tengjian1981]

哎，没人回答也的给分呀，散分。

[swordqj]

楼主怎么见谁都给分，我都不知道谁是正确的了