请问高手：如何检测窗打开和关闭？

Question

如何检测窗口打开了？
有老兄说用WM—CLOSE，检测关闭，请问这个消息怎么用啊！

Answer 1

另外在问一下assigned(form2)这句话是什么意思啊！

Answer 2

问题1：
procedure TForm1.Button1Click(Sender: TObject);
var
  form2:Tform;
begin
  form2:=Tform.Create(nil);
  if not form2.Showing then
    ShowMessage('not show');
  form2.Free;
end;
问题2：
assigned（x）判断x是否等于nil,对于x不是nil或有效赋值的情况不能判断

Answer 3

其实我的本意是这样的：我只允许FORM2打开一个！
那么我可以用
VAR
I：INTEGER；
......
I：=FORM2；
....
I是否等于打开FORM2的个数？

Answer 4

谢谢cll007(gazo) ：
终于解决了我的问题，但是对窗口自身控制开一个窗口没有解决，只能用按键使能！

Answer 5

你把form2:tform;声明为全局变量
然后
if not assighed(from2) then
  form2:=Tform.Create(self);
  form2.show;