Question

delphi "Control has no parent window"

delphi "Control has no parent window"

2009-07-25 08:47
jhsok

分类：其他编程语言

| 浏览 5207 次

编程语言
我在QuickReport中，创建了一个函数，返回值是TRichText,按常理TRichText不是QuickReport中的控件，所以就出现了这样一个问题了，有什么办法可以解决？函数如下：
function mRichText(S:string):TRichText;
var
i:Integer;
Str:WideString;
Editor:TRichEdit;
begin
Str:=S;
Result=nil;
Editor:=TRichEdit.Create(self);
Editor.Lines.Text:='ABC';
Result:=Editor;
end;
急，在线等！！！！！！！！！！
----------------------------------------------
我也遇到了这样的问题！请问您是如何解决的？谢谢诶！

Answer 1

为什么要返回一个对象？
返回一个对象，你怎么接这个返回值？
函数的功能是创建一个对象，用过程创建就可以了，不需要返回值的
procedure mRichText;
var
Editor:TRichEdit;
begin
Editor:=TRichEdit.Create(self);
Editor.Lines.Text:='ABC';
Editor.parent := self;
end;
变量你定义了，都没用到，去掉

追问

还有一个问题 ，我是exe 的pagecontrol 动态的加载 dll 中的form窗体 ，也就是dll中的form在pagecontrol中显示，但是当我点击form中的控件是 报错：“Control 'bsSkinDrawGrid1' has no parent window” ，这是怎么回事呀！谢谢！

追答

给bsSkinDrawGrid1指定parent

Answer 2

加上句 Editor.parent:=Form1 ; 也就是说给 控件 赋值一个 父窗体 ..要是没有父窗体的话 是会出错的..你照着这个思路 下去解决 应该可以.

Answer 3

对QuickReport不熟悉，设置Editor.Parent属性试试