delphi窗体按钮灰化禁用

概述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_

1。使最小化按钮变灰：
setwindowlong(handle,gwl_style,getwindowlong(handle,gwl_style)   and   not   ws_minimizeBox  );

2。使最大化按钮变灰：
setwindowlong(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;

 

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

总结

以上是内存溢出为你收集整理的delphi窗体按钮灰化禁用全部内容，希望文章能够帮你解决delphi窗体按钮灰化禁用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。