社区
Delphi
帖子详情
关于PageControl控件的问题.
Putao
2001-10-19 02:26:29
我把窗体的底色设成了白色.
然后在上面放了个PageControl,并使他的ParentColor属性为真(就是也设为白色).但是Header还是灰色的.
请问怎样把Header的颜色也调为白色?
谢谢!
...全文
165
17
打赏
收藏
关于PageControl控件的问题.
我把窗体的底色设成了白色. 然后在上面放了个PageControl,并使他的ParentColor属性为真(就是也设为白色).但是Header还是灰色的. 请问怎样把Header的颜色也调为白色? 谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
PageControl
控件
实现
自己简单写了一个类似iphone的
PageControl
,希望对初学者有帮助
Winfrom分页小
控件
分页小
控件
,比较简单,操作不复杂,调用this.
pageControl
1.DataGridView = this.dgvxinxi; this.
pageControl
1.OrderString = "ID"; this.
pageControl
1.Sql = sqlInfo; this.
pageControl
1.PageIndex = 1; this....
Delphi6 变形组件123 6.0
能够改变背景图和边框的滚动条、Button、Edit、ComboBox、
PageControl
... 3.改变delphi6中
控件
的外形,你可以找到多少图片,就能够把 TWinControl 变得多么不可思议 4.在delphi6设计状态下制作流程图 作者:金海龙...
ios-自定义
pagecontrol
.zip
自定义UI
控件
pagecontrol
,简单的demo,不喜勿喷,代码地址:https://github.com/nick8brown/LX
PageControl
.git
delphi
PageControl
1如何不显示标签
delphi
PageControl
1如何不显示标签
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章