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;



阅读更多
文章标签: Delphi VCL
上一篇DBGridEh Footer的设置和使用
下一篇DBGridEh设置表中表
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭