delphi -----(去掉窗口最大化，最小化、關閉),主窗口，和子窗口之間的設置

一、去掉窗口最大化，最小化、關閉

borderIcons:biSystemMenu:false

borderStyle:bsSizeable

二、主子窗口

主main:

//調用子窗體
procedure TFrmMain.CallChildForm(FormChild: TFormClass; var Reference);
var
i: Integer;
begin
　　if MDIChildCount >0 then
　　for i := 0 to MDIChildCount-1 do
　　if MDIChildren[i]=TForm(Reference) then
　　begin
　　　　TForm(Reference).WindowState := wsNormal;
　　　　TForm(Reference).BringToFront;
　　Exit;
　　end;
　　Application.CreateForm(FormChild, Reference);
end;

大小設置

Left := 0;
Top := 0;
Width := Screen.Width;
Height := Screen.Height - 31;
gChildHeight := Height - SBar_Status.Height - 90;
gChildWidth := Width -26;

 

屬性：Windowstate:wsMaximized

          FormStyle: fsMDIForm

子窗口

主調子

  CallChildForm(TFrmBaseModel,FrmBaseModel);

大小

Top := 50;
Left := 0;
Width:=gChildWidth;
height:=gChildHeight;

屬性：FormStyle:fsMDIChild