社区
Delphi
帖子详情
关于PageControl控件的问题.
Putao
2001-10-19 02:26:29
我把窗体的底色设成了白色.
然后在上面放了个PageControl,并使他的ParentColor属性为真(就是也设为白色).但是Header还是灰色的.
请问怎样把Header的颜色也调为白色?
谢谢!
...全文
176
17
打赏
收藏
关于PageControl控件的问题.
我把窗体的底色设成了白色. 然后在上面放了个PageControl,并使他的ParentColor属性为真(就是也设为白色).但是Header还是灰色的. 请问怎样把Header的颜色也调为白色? 谢谢!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用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
APC.zip_
PageControl
_Um. . ._delphi
pagecontrol
_
pagecontrol
delp
Biblioteca Delphi com um objeto
Pagecontrol
muito bom.
PageControl
控件
实现
自己简单写了一个类似iphone的
PageControl
,希望对初学者有帮助
Delphi
PageControl
组件用法
pagecontrol
和开发过程中很重要的一个
控件
,有必要好好学习下,采用delphi2010编写。放上最喜欢的老胡,哈哈。
Winfrom分页小
控件
分页小
控件
,比较简单,操作不复杂,调用this.
pageControl
1.DataGridView = this.dgvxinxi; this.
pageControl
1.OrderString = "ID"; this.
pageControl
1.Sql = sqlInfo; this.
pageControl
1.PageIndex = 1; this.
pageControl
1.FindDataByOther();
ios-自定义
pagecontrol
.zip
自定义UI
控件
pagecontrol
,简单的demo,不喜勿喷,代码地址:https://github.com/nick8brown/LX
PageControl
.git
Delphi
5,927
社区成员
262,932
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章