1。使最小化按钮变灰:
setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_minimizebox );
2。使最大化按钮变灰:
setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_maximizebox);
3. 关闭按钮变灰色
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
4 禁用ATL+F4
利用消息机制来处理关闭事件
在tform类里写
procedure wmclose(var msg:tmessage);message wm_close;
...
...
..
然后写具体过程
procedure tform1.wmclose(var msg:tmessage)
begin
//
end;
想在他按下的时候干什么你可以放在这个过程里,要是想继续执行关闭,用
inherited;
这样写了就屏蔽了ALT+F4
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步