如何在CloseQuery中判断退出模式？

Question

如何在CloseQuery中判断退出模式？如VB中有：
vbFormControlMenu， 0， 用户从窗体上的“控件”菜单中选择“关闭”指令。 
vbFormCode， 1， Unload 语句被代码调用。 
vbAppWindows， 2， 当前 Microsoft Windows 操作环境会话结束。 
vbAppTaskManager， 3， Microsoft Windows 任务管理器正在关闭应用程序。 
vbFormMDIForm， 4， MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 
vbFormOwner， 5， 因为窗体的所有者正在关闭，所以窗体也在关闭。 

Answer 1

if Application.MessageBox('退出吗？','提示信息',MB_ICONQUESTION+MB_YESNO+MB_DEFBUTTON2)=ID_YES then
   CanClose:=True
 else
   CanClose:=False

Answer 2

To: yzykjh(多米诺骨牌)谢谢你的回答, 但好象你理解错误我的本意了, 我本意是想得到
用什么方式关闭窗口的, 如:是系统菜单、Close指令、Windows
关机等等.

Answer 3

Delphi中好象只有ModalResult成员变量可用.

Answer 4

你判断退出模式做什么？
有问题请发信息到我的E-mail:[email protected]