16,747
社区成员
发帖
与我相关
我的任务
分享新人请教DELPHI界面切换问题
本人刚学DELPHI不久，在做程序练习时，想实现点击菜单切换界面的功能，且只显示我所选择的当前页面，关闭之前的页面，form框架不变。请各位指点下这样的功能需要如何实现，谢谢。
...全文
请发表友善的回复…
发表回复
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
- 打赏
- 举报
+1
hsfzxjy 2013-06-22
- 打赏
- 举报
关闭TabSheet： PageControl1.Pages[i].Free
ice_bird 2013-06-22
- 打赏
- 举报
用菜单的BringToFront实现的只是界面之间的切换，却无法实现关闭之前的页面,而且如果页面多的话在刚打开程序时需要载入大量的panel。而PageControl控件我不知道如何让TabSheet关闭，隐藏，按实际要求排列。
不知道是否是因为还有其他不知道的属性设置的问题。
我真的没有昵称 2013-06-22
- 打赏
- 举报
试试 PageControl 控件
