Delphi 中怎么实现多窗口? 像许多浏览器一样,当点网页时,自动创建一个窗口,多窗口并存,可以来回切换
我要的效果是:当前显示首页内容,当点击某个按钮时,才新增这个窗口,可以到首页中点击别的按钮,又另外出现一个窗口。与很多浏览器一样的多窗口功能。不是一次显示所有窗口。下面的...
我要的效果是:当前显示首页内容,当点击某个按钮时,才新增这个窗口,可以到首页中点击别的按钮,又另外出现一个窗口。与很多浏览器一样的多窗口功能。不是一次显示所有窗口。
下面的图是用lovesky0414 的例子实现的,也正是我想要的 展开
下面的图是用lovesky0414 的例子实现的,也正是我想要的 展开
5个回答
展开全部
用PageControl
需要实现多窗口的时候,新建一个tabsheet,然后把业务窗体(From或者Frame)放到这个tabsheet里就可以了
留个邮箱,给你一些代码
需要实现多窗口的时候,新建一个tabsheet,然后把业务窗体(From或者Frame)放到这个tabsheet里就可以了
留个邮箱,给你一些代码
更多追问追答
追问
请具体一点,谢谢!yanwen363@sina.com
追答
已发送 查收
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
PageControl或者TABControl’控件。
点击一下加号,Pages增加一个,然后activePageIndex:=pageCount-1,然后再里边create一个webBrowser,其parent=新创建的page.
点击一下加号,Pages增加一个,然后activePageIndex:=pageCount-1,然后再里边create一个webBrowser,其parent=新创建的page.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
pagecontrol 控件。创建窗体后,把窗体停泊到每个标签页上即可
更多追问追答
追问
怎么停泊?
追答
var i: Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
var
f: TForm;
tab: TTabSheet;
begin
tab := TTabSheet.Create(PageControl1);
tab.Parent := PageControl1;
tab.PageControl := PageControl1;
f := TForm2.Create(tab);
f.Parent := tab;
tab.Caption := '停泊窗体' + IntToStr(i) ;
f.Dock(tab, tab.ClientRect);
f.Show;
PageControl1.ActivePage := tab;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-10-02
展开全部
Pagecontrol delphi带有实例,挺简单的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
是想用Pagecontrol吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询