100分：如何关闭窗体(100分)

emoth · 2003-05-24

小弟我在编写一个系统栏程序时，在form的close事件中将canclose总是设为false,意即当按 关闭窗体时，默认为最小化，只有通过菜单中的退出才能真正关闭窗体。但是这样一来，当 我在“开始”菜单中使用关闭或重启系统时，由于我程序的存在，系统总是不能关闭或重启， 然后就返回到了桌面。我知道要拦截windows的关闭消息，只是不知道具体应该怎么做，请教 各位高手，如何解决这个问题呢。

WilliamGui · 2003-05-24

使用托盘控件吧，设置一下属性就可以了， 如果要写还是比较麻烦些，不过也只是写三四个事件，网上很多，搜索一下

emoth · 2003-05-24

不会吧，我的意思是：如果点击标题栏的关闭按钮，我的程序最小化。但是这样一来，当其 它外部程序要求windows重启时，由于我的程序不允许关闭窗体（只能通过菜单中的“关闭”） 因此windows总是不能关闭或重启，非得先关闭我的程序后才能重启或关闭windows。

wangsir · 2003-05-24

关闭 Windows: 控制 Windows 的开关：如关闭 Windows 、重新启动 Windows 等。 ExitWindowsEx(UINT uFlags,DWORD dwReserved); 是实现这一功能的API函数。 首先定义常数 const EWX_FORCE=4; //关闭所有程序并以其他用户身份登录 EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式 EWX_REBOOT=2; //重新启动计算机 EWX_SHUTDOWN=1; //关闭计算机 运行时给How赋值，让他等于EWX_SHUTDOWN或其他，调用以下语句 ExitWindowsEx(How,0);

hyxu · 2003-05-24

你在关闭时没有把它注销掉,,在close事件中应该是form.release, 显示时:   form:=tform.create(nil)   ...   ...   form.show;

emoth · 2003-05-24

当外部程序要求重启时，我的程序有一个queryClose事件，在此事件中判断是外部 程序要求重启（此时程序允许重启）还是用户选择了标题栏的关闭按钮（此时程序最小化） 还是用户选择了菜单中的关闭（此时程序关闭），但是在此事件中，如何象wangsir所说的 “运行时给How赋值，让他等于EWX_SHUTDOWN或其他”呢。 是不是要先拦截该消息，让某一特定的变量为True，然后在QueryClose事件中如果该变量为 True，则关闭程序，否则最小化。

emoth · 2003-05-24

我找到解决方法了 //声明拦截WM_QueryEndSession消息的过程 procedureWMQueryEndSession(varMsg:TMessage);MessageWM_QueryEndSession; //实现 procedureTForm1.WMQueryEndSession(varMsg:TMessage); begin   Msg.Result:=1; end;

刀剑如梦 · 2003-05-26

收藏之。谢谢！

yyii_yyii · 2003-05-26

WM_QUIT: 一般当调用DestroyWindow时用PostQuitMessage(1)产生

zjrivaldo · 2003-05-26

private    procedure wmexit(var msg:tmessage);message wm_queryendsession; procedure tform1.wmexit(var msg:tmessage); begin msg.Result:=1; application.ProcessMessages; application.Terminate; end;

emoth · 2003-06-17

我接受了

100分：如何关闭窗体(100分)

emoth

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

emoth

Unregistered / Unconfirmed

wangsir

Unregistered / Unconfirmed

hyxu

Unregistered / Unconfirmed

emoth

Unregistered / Unconfirmed

emoth

Unregistered / Unconfirmed

刀剑如梦

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

zjrivaldo

Unregistered / Unconfirmed

emoth

Unregistered / Unconfirmed

Similar threads