各位好友，对于窗体右上角的（X）变灰，我还想保留最大和最小化按钮，他们可以用只有（X）变灰

[smandhgx]

对于各位的解答我都用了，我是想只有关闭按钮变灰就可以了。没办法左程序吗，
就要精益求精。
谢谢大家了

[blueshrimp]

我也有问题要问，我已经把最大化按钮设成False了，可是双击标题栏怎么解决？我要求程序只能最大化运行。要不最小化到工具栏，不让用户还原成其它形状

[项目花园范德彪]

哈，建立一个changesize的事件，让其做成你要的那么大，
怎么变，都有形，

[zfmich]

同意zsy_good(如果你想说你爱我，那么请你不要插队！)

[zsy_good]

procedure TForm1.Button1Click(Sender: TObject);
var mnu: HMENU;
begin
mnu := GetSystemMenu(Handle, False);
EnableMenuItem(mnu,SC_CLOSE,MF_BYCOMMAND+MF_DISABLED+MF_GRAYED);
end;

[lgxing]

procedure TFrmYmglMain.FormCreate(Sender: TObject);
begin
ModifyMenu(GetSystemMenu(Handle,False),6,MF_BYPOSITION,0,nil);
end;