|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/7/8 17:27:47 |
标题: |
|
加入我的收藏 |
楼主: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
- |
作者: |
|
2003/7/8 17:34:38 |
1楼: |
窗体的BorderIcons属性中的biSystemMenu设为False
----------------------------------------------
-
|
作者: |
|
2003/7/8 19:39:39 |
2楼: |
但是还在屏蔽ALT+F4键
----------------------------------------------
-
|
作者: |
|
2003/7/8 19:40:27 |
3楼: |
if (ssalt in shift) and (key=115) then key:=0
----------------------------------------------
-
|
作者: |
|
2003/7/9 11:14:13 |
5楼: |
屏蔽ALT+F4键:
procedure TForm1.WMSysCommand(var Msg: TMessage); begin if Msg.wParam <> SC_CLOSE then inherited; end;
或在CloseQuery(Sender: TObject; var CanClose: Boolean)事件中设置: CanClose:=False;
----------------------------------------------
-
|
|