请问如何判断一个Form是否在屏幕上可见??

Question

我在程序中用Form的
Visible 和 Showing 属性判断时
好像只要是Create过后的,再用Close方法关闭的Form上面的两个属性都会都为True;
请问如何判断呢???

Answer 1

不会呀！ 第二个 Form 要选择自动建立，如我的代码，Form2 是自动建立的，这段代码能正确执行：procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form2.Showing then
    Form2.Hide
  else
    Form2.Show;
end;

Answer 2

谁说的？用Close方法关闭的form上面两个属性都为False

Answer 3

或者一开始就Form2的属性里把visible设为false;
就算你Create后再Close,form2的属性也应该为False了！

Answer 4

if Assigned(Form1)and(Form1.Showing) then
begin
  ...
end;