Question

delphi中窗体互相调用出错

大家好，有一难题不知道怎么解决。
要求form1点击按钮可以到form2，form2点击按钮又可以回到form1。
try
if not Assigned(form2) then
begin
form2 := Tform2.Create(nil);
end;
form2.ShowModal;
finally
if Assigned(form2) then
FreeAndNil(form2);
end;
这样写代码调第二次的时候就会提示窗体已存在

try
if not Assigned(form2) then
begin
form2 := Tform2.Create(nil);
end;
Close;
finally
end;
这样写多调几次没问题，但是中间再打开其它窗口的话就无法回到form2了

try
if not Assigned(form2) then
begin
form2 := Tform2.Create(nil);
end;
except
FreeAndNil(form2);
form2 := Tform2.Create(nil);
这样写的话就没办法让form2显示自己想要显示的内容

大家有没有遇到这种情况？难道delphi真的不能像网站那样各个页面可以随便返回吗？

Answer 1

你可以不关闭只把窗体的visible设置成false
控制他们的visible属性
就可以像网站那样随便返回了

Answer 2

try
if not Assigned(form2) then
begin
form2 := Tform2.Create(nil);
end;
Close;
finally
end;
close了,并没有Free.
而且你没有调用show来显示.