如何在TPageControl的每个Tab上添加一个按钮？ ( 积分: 200 )

C

chimney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #1

此外，TPageControl的组件编辑器对应的是哪个TComponentEditorClass？我从TCustomTabControl上继承一个PageControl后，在设计期PageControl的菜单上没有了“New Page”、“Next Page”等菜单项了。

 

C

chimney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #2

此外，TPageControl的组件编辑器对应的是哪个TComponentEditorClass？我从TCustomTabControl上继承一个PageControl后，在设计期PageControl的菜单上没有了“New Page”、“Next Page”等菜单项了。

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #3

你不能直接就将STYLE的属性设为PageControl1.style:=tsButtons吗????

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #4

不要从TCustomTabControl继承

直接从TPageControl继承，

TTabControl和TPageControl的代码差别很大

你看看TTabControl的代码就只有显示了TCustomTabControl的published的东西
而且TPageControl作了很多的工作，所以你从那里继承的时候要考虑PageControl的那些功能，个人看法，仅供参考

刚刚没看清楚题目，不好意思，设置PageControl的style就可以了

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #5

你是想在page上放按钮还是在标签上放按钮啊

如果只是想要个上一页下一页用不着每个页面上都放这2个按钮

你只需要在这个PageControl的parent上放2个按钮并且把他们置前就行了
点机按钮时根据当前PageControl的ActivePageIndex来显示就行，比如

procedure TForm1.Button1Click(Sender: TObject); //上一页
begin
if PageControl1.ActivePageIndex>0 then
PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex-1;
end;

procedure TForm1.Button2Click(Sender: TObject); //下一页
begin
if PageControl1.ActivePageIndex<PageControl1.PageCount-1 then
PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex+1;
end;

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #6

汗。。。。。楼主帖子内容和题目是2个问题啊。。。。汗。。。。

tab为按钮就是改style为tsButtons

 

G

gameboyda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-25

• #7

呵呵，都看走眼了，楼主是问的2个问题。他不是说：“此外”啊。
tab显示为button楼上各位都说了，继承同意3楼兄弟的，tabcontorl和pagecontrol的差别确实太大了。

 

C

chimney

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-26

• #8

1、我是想在每一个TabSheet的标签上放一个按钮，单击该按钮可关闭所在的TabSheet。
2、直接从TPageControl继承是可以，只是我想知道这个TComponentEditorClass到底是哪一个，因为我找了半天都找不到。

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-26

• #9

你可查看一下BusinessSkinForm中的bsSkinPageControl1，不是有很多地方可下到带源码的版本吗？看一下它是如何继承的，不比自己摸要快一些吗？
第一个问题我也一直想弄，好象没法办到，你看现在好多的MYIE浏览器之类的多页面的关闭办法，基本都是在TabSheet外面想的办法.

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-26

• #10

第一个问题：
ownerDraw 一个按钮；