如何将Delphi窗体中的按钮实现灰化并禁用功能？

本文共计220个文字，预计阅读时间需要1分钟。

1. 使用最小化按钮变灰：`setwindowlong(handle, gwl_style, getwindowlong(handle, gwl_style) + not ws_minimizebox);`

2.使用最大化按钮变灰：`setwindowlong(handle, gwl_style, getwindowlong(handle, gwl_style) + not ws_maximizebox);`

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;

这样写了就屏蔽了ＡＬＴ＋Ｆ４