PageControll加入子窗体

PageControll加入子窗体

一、子窗体

1、FormStyle:=fsNormal;

2、WindowState := wsMaximized; 

3、BordStyle := bsNone;

4、Option-Forms设置子窗体：Available forms

5、FormClose事件

procedure TShowPathFrm.FormClose(Sender: TObject;   var Action: TCloseAction);

begin

  Action:=caFree;

end;

6、FormDestroy事件

procedure TShowPathFrm.FormDestroy(Sender: TObject);

begin

  ShowPathFrm:=Nil;

end;

二、主窗体

1、加入PageControl

2、增加一个Page

3、调用打开（窗体）事件

procedure TMDIMainFrm.Button1Click(Sender: TObject);

begin

  if not Assigned(ShowPathFrm) then

    ShowPathFrm:=TShowPathFrm.Create(nil);

  try

    ShowPathFrm.ManualDock(PageControl1.Pages[0]);  // 嵌入PageControl1.Pages[0]

    ShowPathFrm.Show;

  except

    ShowPathFrm.Close;

    Exception.Create('Error');

  end;

end;