关于PageControl控件的问题.

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

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

谢谢!
...全文
165 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧