PageControll加入子窗体

2016-08-22 19:17:30来源:CSDN作者:lyhoo163人点击

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;



最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台