使窗口标题栏中的“关闭”按钮变灰

字体大小: 中小 标准 ->行高大小: 标准 中 大 
var mnu: HMENU;

begin

mnu := GetSystemMenu(Handle, False);

EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);

end;

1、删除“关闭”菜单：

procedure TForm1.FormCreate(Sender: TObject);

var mnu: HMENU;

begin

mnu := GetSystemMenu(Handle, False);

DeleteMenu(mnu, SC_CLOSE, MF_BYCOMMAND);

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/68392.html