Question

delphi中怎么判断一个窗口是否已经打开

我的程序是这样的
var
f1:tform1;
begin
if ... then
begin
f1:=f1.create(application);
f1.parent:=panel1;
f1.show;
end
end;

请问省略号中应该用什么样的判断语句啊???
我用了findwindows('tform1','f1')这个好像没用呀
每次返回的都是0,不关窗口是开着还是关着的.
郁闷死我了.

Answer 1

我一般用show或ShowModal；现声明一个公共变量 var i :integer; 然后在show或ShowModal付给它值
procedure TForm2.Form2_show;
begin
form2 :=TForm2.Create(application);
try
form2.ShowModal;
i :=1;
finally
form2.Free;
end;
end;
然后if i :=1 then
begin
(你要写的代码)
end;
这样就可以了

Answer 2

不懂delphi
这个原理不知道可以不
窗体对象是不是为空 不就可以判断了