请教一个很菜的问题:如何判断一个窗口已销毁?多谢.

解决方案 »

  1.   

    我也发现了,呵呵.但我的代码还不对,请教一下我在form1的Resize事件中,设置另一个form的位置,但在窗口关闭时总提示出错,代码如下:procedure TMainForm.FormResize(Sender: TObject);
    var
      rc:TRect;
    begin
      rc.TopLeft := ClientToScreen(self.ClientRect.TopLeft);
      rc.Top := rc.Top + self.VideoWindow1.Top;  if(rc.Top < 0) or (rc.Left < 0) then
        exit;  if (SubTitleForm = nil) then
        exit;  SubTitleForm.Top := rc.Top;
      SubTitleForm.Left := rc.Left;
    end;