为什么我的ActiveForm的OnDestroy没有反应？？

[transcend]

为什么我的ActiveForm的OnDestroy没有反应？？ activeform退出时要做一些处理，应在什么地方加入代码？

[nbshiny]

在onclose中加代码

[qibo999]

在OnClose()或OnCloseQuery()里加代码

[xuv2002]

请参考下列例子
.h
class ATL_NO_VTABLE TActiveFormXImpl:
VCLCONTROL_IMPL(TActiveFormXImpl, ActiveFormX, TActiveFormX, IActiveFormX, DIID_IActiveFormXEvents),
public IPersistPropertyBagImpl<TActiveFormXImpl>,
public IObjectSafetyImpl<TActiveFormXImpl,INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA>
{
void __fastcall ActivateEvent(TObject *Sender);
void __fastcall ClickEvent(TObject *Sender);
void __fastcall CreateEvent(TObject *Sender);
void __fastcall DblClickEvent(TObject *Sender);
void __fastcall DeactivateEvent(TObject *Sender);
void __fastcall DestroyEvent(TObject *Sender);
void __fastcall KeyPressEvent(TObject *Sender, char &Key);
void __fastcall PaintEvent(TObject *Sender);
public:

void InitializeControl()
{
m_VclCtl->OnActivate = ActivateEvent;
m_VclCtl->OnClick = ClickEvent;
m_VclCtl->OnCreate = CreateEvent;
m_VclCtl->OnDblClick = DblClickEvent;
m_VclCtl->OnDeactivate = DeactivateEvent;
m_VclCtl->OnDestroy = DestroyEvent;
m_VclCtl->OnKeyPress = KeyPressEvent;
m_VclCtl->OnPaint = PaintEvent;//这个m_VclCtl 就是你的ActiveForm窗口
}
.cpp
void __fastcall TActiveFormXImpl::DestroyEvent(TObject *Sender)
{
try{
ShowMessage("Detroyed.");
//使用m_VclCtl 访问ActiveForm 的公有变量和函数
}catch(...){}

Fire_OnDestroy();
}

[qiuafa]

蹭分

[transcend]

xuv2002(4舍523) 厉害！！