delphi怎样把子窗体显示在pagecontrol的tabsheet,50分

qq_30831745 2016-07-07 11:33:59

我新建一个主窗体放有mainmenu和pagecontrol，创建几个mainmenu的子类，每点击一个子类弹出一个子窗体然后子窗体显示在pagecontrol的tabsheet中，或者我点击一个mainmenu的N1对应显示pagecontrol的tabsheet1，大神求教

...全文

1471 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

不得闲 2016-11-04

打赏
举报

ManulDock，停靠

lyhoo163 2016-08-22

打赏
举报

还有加一个条件：一、子窗体 1、FormStyle:=fsNormal; 2、WindowState := wsMaximized; 3、


procedure TShowPathFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

4、


procedure TShowPathFrm.FormDestroy(Sender: TObject);
begin
  ShowPathFrm:=Nil;
end;

5、BordStyle := bsNone; 6、Option-Forms设置子窗体：Available forms 二、主窗体 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;

lyhoo163 2016-08-22

打赏
举报

一、子窗体 1、FormStyle:=fsNormal; 2、WindowState := wsMaximized; 3、


procedure TShowPathFrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

4、


procedure TShowPathFrm.FormDestroy(Sender: TObject);
begin
  ShowPathFrm:=Nil;
end;

5、Option-Forms设置子窗体：Available forms 二、主窗体 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;

看那山瞧那水 2016-08-21

打赏
举报

Dock procedure TfrmMain.btn1Click(Sender: TObject); begin if not Assigned(Form1) then Form1:=TForm1.Create(nil); try Form1.ManualDock(pgc1.Pages[0]); //嵌入PANEL显示子窗体 Form1.Show; except Form1.Close; Exception.Create(‘Error’); end; end; //子窗体 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TForm1.FormDestroy(Sender: TObject); begin Form1:=nil; end; BordStyle := bsNone; WindowState := wsMaximized;