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

2016-07-07 11:33:59 1.6k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【SAP PO】SAP PO 接口配置完整教程之二REST服务对接 SAP PO 接口配置完整教程之二REST服务对接阅读详情

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

...全文

RK3588嵌入式AI部署实战：从环境搭建到模型推理全链路嵌入式AI部署涉及交叉编译、NPU驱动、模型量化与运行时环境等多个技术环节，其核心挑战在于软硬件版本矩阵的严格匹配。在边缘计算场景中，RK3588凭借6TOPS NPU算力成为热门平台，但环境搭建与模型转换的复杂性常导致部署效率低下。通过容器化工具链管理、量化参数对齐及多线程推理优化，可显著提升部署稳定性与推理性能。典型应用包括智能安防、工业质检与视频结构化分析。本文围绕RK3588的AI部署与环境搭建，系统梳理从系统烧录到板端推理的完整实践路径。阅读详情

qq_30831745

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

不得闲 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;

reverzeng 2016-08-13

打赏
举报

４楼兄弟的方法可以实现

jjpweb 2016-07-15

打赏
举报

窗体的parent := tabsheet 窗体的borderStyle:=bsnone

英年渐肥 2016-07-15

打赏
举报

父类或停靠都可以

qq_30831745 2016-07-07

打赏
举报

有没人跑来解决啊

qq_30831745 2016-07-07

打赏
举报

不是3楼说的这个，他那个太麻烦了

zbdzjx 2016-07-07

打赏
举报

这个？？http://blog.csdn.net/xiongmao000738/article/details/6734546

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

相关推荐