delphi窗体按钮灰化禁用
2021-01-30 01:15
标签：for hand proc end delphi max 最小化 lse window 1。使最小化按钮变灰： 3. 关闭按钮变灰色 EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED); 4 禁用ATL+F4 利用消息机制来处理关闭事件 在tform类里写 这样写了就屏蔽了ＡＬＴ＋Ｆ４ delphi窗体按钮灰化禁用 标签：for hand proc end delphi max 最小化 lse window 原文地址：https://www.cnblogs.com/zyb2016/p/11670735.html
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);
procedure wmclose(var msg:tmessage);message wm_close;
...
...
..
然后写具体过程
procedure tform1.wmclose(var msg:tmessage)
begin
//
end;
想在他按下的时候干什么你可以放在这个过程里，要是想继续执行关闭，用
inherited;