大虾们帮忙看一下这段代码，郁闷，不知何故呀！

[BigAngell]

有两个窗体Form1, Form2;

Form2中有这样一个过程：
procedure TF_PrintLR.AutoNextRow(var QRLabelObj : TQRLabel; TextValue : String);
var
i:Integer;
tmpMemo : TMemo;
LastStr:String;
begin
tmpMemo := TMemo.Create(nil);
tmpMemo.Parent := Form2;
tmpMemo.Font:=QRLabelObj.Font;
tmpMemo.Width:=QRLabelObj.Width + 3;
tmpMemo.Text := TextValue;

for i:=0 to tmpMemo.Lines.Count-1 do
begin
LastStr := LastStr + tmpMemo.Lines[i]+ #13;
end;
QRLabelObj.Caption:=LastStr;
tmpMemo.Free;
end;

我在Form1中写了如下代码：
if Form2 = nil then
begin
try
Application.CreateForm(TForm2, Form2);
Form2.QuickRep1.PreviewModal; //<-
finally
Form2.Free;
Form2 := nil;
end;
end;

我在Form2.QuickRep1BeforePrint中写了如下代码：
if LeftOk then
begin
AutoTurnRow(QRLabel1, ContentText); //ContentText: 内容介绍
end;

当代码执行到Form2.QuickRep1.PreviewModal时，没有出现任何错误，我能看到报表，也是我想要的效果（换行），但是当试图关闭报表时，弹出错误信息：“Prject HongHo.exe raised exception class EOSError with message 'System Error. Code;1400. 无效的窗口句柄。'. Process stopped. Use Step or Run to continue.”

后来经调试发现，如果不调用 AutoTurnRow 这个过程，改用QRLabel1.Caption := '...'序程则不会出错。

奇怪的事呀，期待高手解决些问题，谢谢！

[BigAngell]

在线等呀！

[BigAngell]

后来，我将tmpMemo直接放到Form2窗体上，仍然不行

[ln521]

定义窗体的变量
create

[BigAngell]

有什么区别吗，以前我都是这样创建窗体的，很正常呀

能说说这两者之前的区别吗？

[BigAngell]

我在问题中指明过——》“后来经调试发现，如果不调用 AutoTurnRow 这个过程，改用QRLabel1.Caption := '...'序程则不会出错。”

[micher_yan]

AutoTurnRow(QRLabel1, ContentText); 提示无效的窗口句柄，你传句柄试试
AutoTurnRow(QRLabel1.Handle, ContentText);

[BigAngell]

UP

[yuetianbao]

UP

[Kevin_Lmx]

你试试 tmpMemo := TMemo.Create(self);
然后不要自己去释放它。^_^

[wenhui1215]

UP