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 像亡国的南宋,试问这语言还有前途吗?
Win32开发不如C#;
面像对像开发不如JAVA;
系统开发不如VC++6.0;
能用性不如VB6.0;
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗?
......
总之,这个应该是个小BUG。
随便建个txt文档
第一行68个s加一个回车
第二行98个s加一个回车
第三行17个s加一个回车
总共183个s加三个换行,大小189字节。
接着用FileOpen和FileRead把文件 ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......