首页  编辑  

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

Tags: /超级猛料/VCL/Form,窗体/标题栏和边框/   Date Created:
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;