新做一个activexform工程,发现它的mainform的destroy事件不响应,why,
procedure TActiveFormX.ActiveFormDestroy(Sender: TObject);
begin
  showmessage('');
end;在应用程序退出时没有 showmessage('');请各位高手帮忙

解决方案 »

  1.   

    Destroy在应用程序非正常(异常)退出时才触发
      

  2.   

    如想在应用程序退出时showmessage('');
    procedure TActiveFormX.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      showmessage('');
    end;
      

  3.   

    to NamasAmitabha(银雨辰) :
      由于在TActiveFormX中没有找到onclose的时间,所以我在oncreate中
    procedure TActiveFormX.ActiveFormCreate(Sender: TObject);
    begin
      self.OnClose := self.FormClose;
    end;
    procedure TActiveFormX.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
      showmessage('close');
    end;其中FormClose是我自己写的函数,在ie中调用这个activexform时,
    ie退出还是未响应FormClose,为什么,帮忙看一下,谢谢!
      

  4.   

    由于在TActiveFormX中没有找到onclose的时间?
    其中FormClose是我自己写的函数
    为什么自己写?