你可以直接在Form.OnCloseQuery中:
CanClose := false;
副作用:你再也关不掉这个窗口了:)
CanClose := false;
副作用:你再也关不掉这个窗口了:)
解决方案 »
- 请教DELPHI的容器类和排序查找问题
- 高手请进 delphi+mapx变量释放问题?
- 怎样得到本地打印机\网络打印机的打印消息?(N多分相送)
- WebBrowser里的内容怎么保存为mht格式,怎么把网页中的内容(包括图片)保存到数据库中
- 怎么来限制字段的格式和长度?
- 字符串问题!
- Delphi中如何转换word文档或wps文档为web页或txt文件格式???(编程思想及实现)
- 怎样检测一个系统上是否装有EXCEL!!检测注册表吗?
- 请教,关于函数CallBack的
- TBitmap.create;出错,why???
- 求助shellexecute,createprocess如何使用?
- websnap与com+应用服务器怎么相连
begin
//屏蔽ALT+F4功能键
CanClose:=FALSE;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;
proc keydown(sender:Tobject; var key:word;shift:Tshiftstate);
begin
if (key=vk_f4) and ([ssAlt]=Shift) then
key=0 //屏蔽Alt+F4 因为过程中参数key为word类型 所以 不必使用"#"转换 若为char则相反
if *(key=vk_F3) and ([ssAlt]=Shift) then //*处可以用(key=vk_f3) and (ssAlt in Shift) 但注意此时按Alt+Ctr+F3也可以关闭,使用时注意
close
end;