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免费一年会有人用吗?
......
我写了个小程序,上面添加了一个shockwaveflash控件,然后在movie里写入swf文件的路径,然后执行没有问题。
当我把这个程序转移到另一台电脑执行时, shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下:
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS(创建VPN连接用)函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......