关于PageControl控件的问题.

Putao 2001-10-19 02:26:29

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

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

谢谢!

...全文

181 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

Putao 2001-11-18

打赏
举报

something else?

Putao 2001-10-26

打赏
举报

hantao 2001-10-26

打赏
举报

saimaya 2001-10-25

打赏
举报

yancey 2001-10-23

打赏
举报

不会呀，应该就这样就可以了，我去看看

Putao 2001-10-21

打赏
举报

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