Question

delphi ShowModal 嵌套创建窗体问题

有3个窗体，主窗体Form1，,有个按钮动态创建的Form2
procedure TForm1.btn6Click(Sender: TObject);
var
f:TForm2;
begin
f := TForm2.Create(Application);
try
f.ShowModal;
finally
f.Free;
f := nil;
end;
end;
在Form2上也有个按钮，动态创建Form3，代码和上面类似，只有窗体名不一样。就是嵌套创建了窗体。
在Form3上有个按钮，调用Form2中的ADOQuery，部分代码如下：
Form2.con2.BeginTrans;
Form2.qry2.UpdateBatch();//这里出错，提示Form2=nil
Form2.con2.CommitTrans;
按下Form3上的按钮时出错，提示Form2=nil，Form2窗体还没关闭，应该没有执行free过程吧，怎么就提示窗体为nil了呢？还是哪些代码写错了地方？
2个窗体上按钮的ModalResult均为mrNone，默认值，没改动。
第3个窗体回调第2个窗体有错误，还是第三个窗体上要写什么代码，我已经在implementation 中use了Form2窗体了

Answer 1

var
f:TForm2;
begin
f := TForm2.Create(Application);//看到这里了么？一个变量没有赋值哪来的值？

Form2只是个变量，看你怎么用.

追问

求指教！新手上路。这程序还有得救吗？我看别人也这么写的就类似的写了

追答

把你的变量f去掉，用form2

追问

求给个代码，新手不会。。。

追答

你的这个逻辑啊。哎。。。
ShowModal 以后其他窗体都是不能操作的，你用Form3的时候，Form2肯定被释放掉了。否则你不可能还能操作Form3。为什么自动创建的时候不出错？因为自动创建Application.CreateForm帮你创建了Form2并一直保留，所以你自动创建的时候不错出。回过头来，既然操作form3的时候Form2已经释放了，那么就再创建一次，问题不久解决了？
if not Assgined(Form2) then //检查一下Form2是否存在
Form2 := TForm2.Create(Application); //不存在就创建他
然后在做你那些BeginTrans ,update
你这就是基础不牢，逻辑混乱...先打好基础，再去多看看别人的Demo，新手不要急于动手。

Answer 2

procedure TForm1.btn6Click(Sender: TObject);
begin
Form2:= TForm2.Create(Application);
try
Form2.ShowModal;
finally
Form2.Free;
Form2:= nil;
end;
end;

你试试

追问

试了，还是报错。好像就是Form2点了按钮之后就把Form2释放了，但是窗体还没关闭呀，在Form3中用Form2的query就报错Form2 ：= nil

Answer 3

with TForm2.Create(Application) do
begin
ShowModal;
Free;
end;
试下

追问

试过了，还是错误，Form2不用动态创建就没事，用动态创建就这样错误