社区
Delphi
帖子详情
请问如何在pagecontrol上新建一个Tabsheet??
Nuke
2000-01-30 11:58:00
请问如何在pagecontrol上新建一个Tabsheet??
唉,研究了半个小时的help也没看出来
...全文
646
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) { Tcx
TabS
heet
*pPage = new Tcx
TabS
heet
(this); pPage->
PageControl
= this->cx
PageControl
1; pPage->Caption = "
新建
页面1"; TFrame *pframe = new TFrame2(NULL); pframe->Parent = pPage; delet.
delphi T
pagecontrol
动态增加页面
前些日子做
一个
项目需要用到 T
pagecontrol
这个控件,然而平时使用的时候都是直接在上面增加控件就可以了,可是这次却是需要动态添加页面,上网也搜了,对于这方面的知识还真是没见到多少,也许是我搜索的方法有问题吧,千辛万苦也就找到了一下3种方法,如果要认真将的话,也只能算是2种吧,今天分享出来,希望能为要用到这个功能,又不会的人减少些时间吧。 第一种方法: proc
右键点击修改Grid的单列值,及修改全表的值,还有相同点击事件的代码简化,及如何双击关闭
一个
tabs
heet
作为
一个
delphi初学者来说,自己得来的经验十分珍贵,今天由于
新建
了
一个
windows新账户差点导致原来放在桌面上的代码无法找回,现把它们记录下来,及备后用procedure TfrmServerSetup.DBAdvStringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: I
Rz
PageControl
(
pagecontrol
)实现多标签的动态添加,切换,关闭
使用Rz
PageControl
来实现多标签页 使用菜单来打开标签页,通过标签页的caption来判断将标签页是否已经被打开过了. 1.创建标签页,并判断是否是已经打开过的页面 procedure TFmain.Page1Click(S
Rz
PageControl
(
pagecontrol
)
实现多标签的动态添加,切换,关闭 使用Rz
PageControl
来实现多标签页使用菜单来打开标签页,通过标签页的caption来判断将标签页是否已经被打开过了.1.创建标签页,并判断是否是已经打开过的页面 procedure TFmain.Page1Click(Sender: TObject); var newpage:TRz
TabS
heet
; index:intege...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章