系统命令消息就是这样屏蔽,哈哈。
procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND; procedure tform1.WMSysCommand(var Msg: TMessage); begin if Msg.wParam <> SC_CLOSE then inherited; end;
Delphi 如何屏蔽Alt F4
时间: 2024-11-05 08:40:18
系统命令消息就是这样屏蔽,哈哈。
procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND; procedure tform1.WMSysCommand(var Msg: TMessage); begin if Msg.wParam <> SC_CLOSE then inherited; end;
Delphi 如何屏蔽Alt F4