TRzPageControl多标签页的实现,怎么加上原来form里的MainMenu?

softheaded 2016-12-09 11:43:14
procedure TFrm_main.pageAddForm(mform:TForm; TmFormClass:TClass); // 将窗体加载至标签上
begin
rzpgcntrl1.Align := alClient;
rzpgcntrl1.Visible := True;
application.CreateForm(TcomponentClass(TmFormClass),mForm);
// mForm.show;
mForm.ManualDock(rzpgcntrl1);
mform.Visible := True;
rzpgcntrl1.ActivePageIndex := rzpgcntrl1.PageCount - 1;
end;


为什么这个调用以后menu菜单没有了?
...全文
298 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
softheaded 2016-12-11
  • 打赏
  • 举报
回复
引用 2 楼 lyhoo163 的回复:
RzPageControl,page中加入Form,仅加能入Form窗体容器中的控件。 你可以看到 MainMenu默认加入窗体的Top端。它虽然和在Form的顶端,它不占用Form容器的Height,说明它与不包含在Form窗口容器中。 建议你使用ToolBar1,加入快捷按钮方式。它可以随窗口加入page中。
说得非常正确,的确就是这个原因。
引用 3 楼 santiaodahan 的回复:
page组件页面中各自显示带菜单的窗体,这么用不常见。如果每个窗口显示各自菜单,应该使用MDI窗体。主窗体FormStyle设置为fsMDIForm,子窗体都设置为fsMDIChild,这样主窗体就会显示当前子窗体的菜单了。
我改成了用dxTabbedMDIManager,主窗体FormStyle设置为fsMDIForm,子窗体都设置为fsMDIChild,暂时解决了这个问题。
lyhoo163 2016-12-10
  • 打赏
  • 举报
回复
RzPageControl,page中加入Form,仅加能入Form窗体容器中的控件。 你可以看到 MainMenu默认加入窗体的Top端。它虽然和在Form的顶端,它不占用Form容器的Height,说明它与不包含在Form窗口容器中。 建议你使用ToolBar1,加入快捷按钮方式。它可以随窗口加入page中。
santiaodahan 2016-12-10
  • 打赏
  • 举报
回复
page组件页面中各自显示带菜单的窗体,这么用不常见。如果每个窗口显示各自菜单,应该使用MDI窗体。主窗体FormStyle设置为fsMDIForm,子窗体都设置为fsMDIChild,这样主窗体就会显示当前子窗体的菜单了。
softheaded 2016-12-09
  • 打赏
  • 举报
回复
看来用Delphi的人越来越少了,基本没有人回答问题了

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧