在 OnCloseQuery 中
if MessageBox(Handle,'你确定要关闭该窗体吗?','提示',MB_YESNO+MB_ICONINFORMATION)=IDYES then
CanClose:=True
else
CanClose:=False;
在 OnClose 中
MessageBox(Handle,'正在关闭窗体!','提示','MB_OK+MB_ICONWARNING);
在 OnDestroy 中
Application.MessageBox('释放窗体','提示');
然后对窗体进行 Show;Hide/Close;Free;
看看结果,这样明白了吧!