0
点赞
收藏
分享

微信扫一扫

cxPageControl1多标签页(10)

https://docs.devexpress.com/VCL/158024/ExpressPageControl/glossary/custom-buttons?v=21.2

最终效果图

cxPageControl1多标签页(10)_自定义按钮

01]每个面页Tab添加关闭按钮02]每个面页Tab前面添加图标
03] 面页Tab多了,自动添加导航条
04]添加Go下拉按钮
05]右上角添加自定义按钮

06]新增页面按钮

01]每个面页Tab添加关闭按钮

cxPageControl1多标签页(10)_Go_02

cxPageControl1多标签页(10)_自定义按钮_03

02]每个面页Tab前面添加图标

cxPageControl1多标签页(10)_导航条_04

cxPageControl1多标签页(10)_导航条_05

03] 面页Tab多了,自动添加导航条

cxProperties的Multiline必须设为False. 

cxPageControl1多标签页(10)_Go_06

cxPageControl1多标签页(10)_自定义按钮_07

04]添加Go下拉按钮

 03导航条要可见。Options中的pcoGoDialog 要设为True. 

cxPageControl1多标签页(10)_导航条_08

cxPageControl1多标签页(10)_导航条_09


cxPageControl1多标签页(10)_Go_10

设置按钮图标

cxPageControl1多标签页(10)_Go_11

 添加按钮事件

cxPageControl1多标签页(10)_Go_12

06]新增页面按钮

   06a]显示 新增按钮

cxPageControl1多标签页(10)_自定义按钮_13

 会有

cxPageControl1多标签页(10)_导航条_14

06b]添加图标使之变大

procedure TForm1.FormCreate(Sender: TObject);
begin
  cxPageControl1.Properties.NewButton.ImageIndex:=1; //设置图标使之变大
end;

cxPageControl1多标签页(10)_自定义按钮_15

cxPageControl1多标签页(10)_导航条_16

  06c]新页面添加文字

procedure TForm1.Pa(aa: TObject);
begin
showmessage('asdf');
end;
procedure TForm1.cxPageControl1NewTabCreate(Sender: TObject; AIndex: Integer);
begin
  cxPageControl1.Pages[AIndex].Caption:='新页面'; //设定新页面文字 
  cxPageControl1.Pages[AIndex].ImageIndex:=1;    //设定图标

Button1 := TButton.Create(Self);
Button1.Caption:='动态创建的按钮';
Button1.OnClick := Pa; //绑定事情响应函数,如果有的话,只要参数 类型 一样,数量一样即可。要是Form1的实际 函数过程
Button1.Left := 100;
Button1.Top := 50;
Button1.Parent := cxPageControl1.Pages[AIndex];

end;

cxPageControl1多标签页(10)_自定义按钮_17

 

举报

相关推荐

0 条评论