如何使MDI子窗口在最大化时,右上角只显示关闭按钮?!(如Word一样)

Question

如何使MDI子窗口在最大化时,右上角只显示关闭按钮?!(如Word一样)

Answer 1

将子窗体的BorderIcons中的biMinimize,biMaximize都变为False

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
 mnu: Hmenu;
begin
 mnu:=GetSystemMenu(Handle,false);
 EnableMenuItem(mnu,SC_MINIMIZE, MF_BYCOMMAND+MF_DISABLED+MF_GRAYED); //使最小化失效
 EnableMenuItem(mnu,SC_MAXIMIZE, MF_BYCOMMAND+MF_DISABLED+MF_GRAYED); //使最大化失效
 DeleteMenu(mnu, SC_MAXIMIZE, MF_BYCOMMAND);  //删除最大化
 DeleteMenu(mnu, SC_MINIMIZE, MF_BYCOMMAND);  //删除最小化
end;