社区
Delphi
帖子详情
请问如何在pagecontrol上新建一个Tabsheet??
Nuke
2000-01-30 11:58:00
请问如何在pagecontrol上新建一个Tabsheet??
唉,研究了半个小时的help也没看出来
...全文
642
2
打赏
收藏
请问如何在pagecontrol上新建一个Tabsheet??
请问如何在pagecontrol上新建一个Tabsheet?? 唉,研究了半个小时的help也没看出来
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Michael
2000-01-30
打赏
举报
回复
我来晚啦
929
2000-01-30
打赏
举报
回复
在PAGECONTROL上加入TABSHEET,可分为设计时和运行时两种。
设计时,用右键单击加入PAGECONTROL组件,出现NEW PAGE等菜单项,选NEW PAGE可建立新的页(TABSHEET)。
运行时,可在程序中声明变量为TABSHEET类型,然后用CREATE以SELF为参数生成新的TABSHEET,然后将此新生成的TABSHEET的PAGECONTROL属性设为FORM上的PAGECONTROL即可。
比如:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
tab1:TTabSheet;
begin
tab1:=TTabSheet.Create(self);
tab1.Caption:=timetostr(time);
tab1.PageControl :=PageControl1 ;
end;
end.
Tcx
PageControl
动态新增新页面以及动态复制Frames到页面上
void __fastcall TForm1::N1111Click(TObject *Sender) ...
PageControl
= this->cx
PageControl
1; pPage->Caption = "
新建
页面1"; TFrame *pframe = new TFrame2(NULL); pframe->Parent = pPage; delet.
delphi T
pagecontrol
动态增加页面
前些日子做
一个
项目需要用到 T
pagecontrol
这个控件,然而平时使用的时候都是直接在上面增加控件就可以了,可是这次却是需要动态添加页面,上网也搜了,对于这方面的知识还真是没见到多少,也许是我搜索的方法有问题...
右键点击修改Grid的单列值,及修改全表的值,还有相同点击事件的代码简化,及如何双击关闭
一个
tabs
heet
作为
一个
delphi初学者来说,自己得来的经验十分珍贵,今天由于
新建
了
一个
windows新账户差点导致原来放在桌面上的代码无法找回,现把它们记录下来,及备后用procedure TfrmServerSetup.DBAdvStringGrid1MouseDown...
Rz
PageControl
(
pagecontrol
)实现多标签的动态添加,切换,关闭
如果不存在,则
新建
一页,返回false; } function TFmain.gotopage(scaption:string;newpage:TRz
TabS
heet
):boolean; var i:integer; isExists:Boolean; begin newpage:=nil; isExists...
Rz
PageControl
(
pagecontrol
)
如果不存在,则
新建
一页,返回false; } function TFmain.gotopage(scaption: string ;newpage:TRz
TabS
heet
):boolean; var i:integer; isExists:Boolean; begin newpage: = nil ; isExists: = false; if ...
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章