易截截图软件、单文件、免安装、纯绿色、仅160KB

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真的不能像网站那样各个页面可以随便返回吗?
菜菜鸟还请大家多多指点


相关问答:

Delphi 像亡国的南宋,试问这语言还有前途吗?

Delphi 像亡国的南宋,试问这语言还有前途吗?
Win32开发不如C#;
面像对像开发不如JAVA;
系统开发不如VC++6.0;
能用性不如VB6.0;
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗? ......

偶然发现不知是Delphi还是windows的Bug?

总之,这个应该是个小BUG。

随便建个txt文档

第一行68个s加一个回车
第二行98个s加一个回车
第三行17个s加一个回车
总共183个s加三个换行,大小189字节。
接着用FileOpen和FileRead把文件 ......

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号