一、去掉窗口最大化,最小化、关闭
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