关闭

PageControll加入子窗体

标签: DelphiVCL
366人阅读 评论(1) 收藏 举报
分类:
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;



1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:31028次
    • 积分:583
    • 等级:
    • 排名:千里之外
    • 原创:27篇
    • 转载:0篇
    • 译文:0篇
    • 评论:9条
    最新评论