• 主页
  • 招聘
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API

关于PageControl控件的问题.

Putao 2001-10-19 02:26:29
我把窗体的底色设成了白色.
然后在上面放了个PageControl,并使他的ParentColor属性为真(就是也设为白色).但是Header还是灰色的.

请问怎样把Header的颜色也调为白色?

谢谢!
...全文
139 点赞 收藏 17
写回复
17 条回复
Putao 2001年11月18日
something else?
回复 点赞
Putao 2001年10月26日
up
回复 点赞
hantao 2001年10月26日
xx
回复 点赞
saimaya 2001年10月25日
gz
回复 点赞
yancey 2001年10月23日
不会呀,应该就这样就可以了,我去看看
回复 点赞
Putao 2001年10月21日
up
回复 点赞
Putao 2001年10月20日
谢谢yancey,我试试看
回复 点赞
Putao 2001年10月20日
To yancey:
你的方法可以用,但是Header的左上方和右上方会有两个很难看的点.请问怎样把他们去掉?
回复 点赞
yancey 2001年10月20日
把PageControl的OwnerDraw设为True ,在onDrawTab事件中自己写
下面的例子在tab前加上了一个小图标

procedure TForm1.pgcMainDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var B:TBitmap;
begin
B:=TBitmap.Create;
Control.Canvas.Brush.Color:=$00CEE8CA;
Control.Canvas.FillRect(Rect);
Control.Canvas.Font.Color:=clBlack;
Control.Canvas.Font.Charset:=GB2312_CHARSET;
Control.Canvas.Font.Size:=9;
Control.Canvas.Font.Name:='宋体';
Control.Canvas.TextOut(Rect.Left+20,Rect.Top+4,TPageControl(Control).Pages[TabIndex].Caption);
imgControl12.GetBitmap(TabIndex,B);
B.Transparent:=true;
Control.Canvas.Draw(Rect.Left+3,Rect.Top+4,B);
end;
回复 点赞
saimaya 2001年10月19日
gz
回复 点赞
Putao 2001年10月19日
To Bob7946:
把PageControl的OwnerDraw设为True,然后呢?
回复 点赞
Bob7946 2001年10月19日
但这样的话,Tab的Caption就看不见了,你可以用一个Label替换,甚至用Image来替换,这样就更个性了,呵呵。
回复 点赞
ylk_pop 2001年10月19日
不如用SpeedButton+Notebook!
如何?
回复 点赞
Bob7946 2001年10月19日
把PageControl的OwnerDraw设为True
回复 点赞
cul 2001年10月19日
使TabVisible不可现,自已做按钮控制页面。
呵呵,乱想的。
回复 点赞
tikkypeng 2001年10月19日
放一个有颜色的控件挡住??
回复 点赞
lxl 2001年10月19日
GZ
回复 点赞
发动态
发帖子
Delphi
创建于2007-08-02

1473

社区成员

26.2w+

社区内容

Delphi 开发及应用
社区公告
暂无公告