如何阻止正在运行的程序窗口的关闭
编号：QA003318
建立日期: 2000年9月10日 最后修改日期：2002年3月15日
所属类别：
李铭:
操作系统: pwin98
编程工具: delphi5.0
问题: 请问在delphi5.0下如何屏蔽ALT-F4 即如何阻止正在运行的程序窗口的关闭？谢谢！
回答:
你可以在窗体的OnClose事件中阻止窗口关闭，下面是一个例子：
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('关闭程序?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;
ourland的意见：
在窗体的onCloseQuery事件中将CanClose值设置成False就可以了，即CanClose:=False;
相关问题：
QA002719 "当系统结束时DELPHI的窗口会收到什么消息"
此问题由李海回答。
| |
|
|
| |
|
|
