新人请教DELPHI界面切换问题

ice_bird 2013-06-22 09:13:51
本人刚学DELPHI不久,在做程序练习时,想实现点击菜单切换界面的功能,且只显示我所选择的当前页面,关闭之前的页面,form框架不变。请各位指点下这样的功能需要如何实现,谢谢。
...全文
454 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
ice_bird 2013-06-26
  • 打赏
  • 举报
回复
自己顶下
ice_bird 2013-06-25
  • 打赏
  • 举报
回复
现在在创建时加入FForm.align:=alClient;不知道这样能不能彻底解决适应panel的大小问题。还有就是不知道如果可以让用户自己选择关闭窗口应该怎么做,希望有人能指点下
LastAvengers 2013-06-24
  • 打赏
  • 举报
回复
可以用TabControl
ice_bird 2013-06-24
  • 打赏
  • 举报
回复
请问为什么我改了 ManualDock(Panel1,nil,alClient);却无法完全停靠panel1。还有就是如果可以让用户自己选择关闭窗口是否也有函数能实现?
OO_is_just_P 2013-06-24
  • 打赏
  • 举报
回复
procedure TForm1.ShowForm(aFormClass: TFormClass); var i :Integer; begin for i := 0 to Self.Panel1.ComponentCount-1 do if Self.Panel1.Components[i].InheritsFrom(TForm) then Self.Panel1.Components[i].Free; with aFormClass.Create(Self.Panel1) do begin ManualDock(Self.Panel1); Parent :=Self.Panel1; Show; end; end; 这个更懒人的做法,撒手不管型的。FForm也不用定义了。
OO_is_just_P 2013-06-24
  • 打赏
  • 举报
回复
我写了个例子 type TForm1 = class(TForm) Button1: TButton; Panel1: TPanel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } FForm :TForm; procedure ShowForm(aFormClass :TFormClass); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses Unit2, Unit3; procedure TForm1.Button1Click(Sender: TObject); begin ShowForm(TForm2); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowForm(TForm3); end; procedure TForm1.ShowForm(aFormClass: TFormClass); begin if Assigned(FForm) then FForm.Free; FForm :=aFormClass.Create(Application); with FForm do begin ManualDock(Self.Panel1); Parent :=Self.Panel1; Show; end; end;
OO_is_just_P 2013-06-24
  • 打赏
  • 举报
回复
统一用一个aForm搞定 var aForm: TForm; if Assigned(aForm) then aForm.Free; aForm :=TxxxForm.Create(Application) ... aForm.Parent :=Self.pnlContainer; aForm.Show;
ice_bird 2013-06-24
  • 打赏
  • 举报
回复
哪位能指点下啊?
ice_bird 2013-06-23
  • 打赏
  • 举报
回复
请问如何才能使得程序只建立需要建立的TabSheet,建立新的TabSheet时关闭之前的,或者由用户选择关闭之前的。网上说可以用动态建立窗口的方法,但这方面目前我还看不懂,所以是否可以由其他方法来实现。
酣酣 2013-06-22
  • 打赏
  • 举报
回复
子form的parent属性设置为主窗体的一个Panel 点击菜单式对应的子form执行BringToFront就可以了!
hongss 2013-06-22
  • 打赏
  • 举报
回复
引用 2 楼 y459618250 的回复:
试试 PageControl 控件
+1
hsfzxjy 2013-06-22
  • 打赏
  • 举报
回复
引用 3 楼 ice_bird 的回复:
用菜单的BringToFront实现的只是界面之间的切换,却无法实现关闭之前的页面,而且如果页面多的话在刚打开程序时需要载入大量的panel。而PageControl控件我不知道如何让TabSheet关闭,隐藏,按实际要求排列。 不知道是否是因为还有其他不知道的属性设置的问题。
关闭TabSheet: PageControl1.Pages[i].Free
ice_bird 2013-06-22
  • 打赏
  • 举报
回复
用菜单的BringToFront实现的只是界面之间的切换,却无法实现关闭之前的页面,而且如果页面多的话在刚打开程序时需要载入大量的panel。而PageControl控件我不知道如何让TabSheet关闭,隐藏,按实际要求排列。 不知道是否是因为还有其他不知道的属性设置的问题。
  • 打赏
  • 举报
回复
试试 PageControl 控件

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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