如何设置pagecontrol上标签的颜色
1个回答
2015-01-03 · 知道合伙人数码行家
huanglenzhi
知道合伙人数码行家
采纳数：117538
获赞数：517190
长期从事计算机组装，维护，网络组建及管理。对计算机硬件、操作系统安装、典型网络设备具有详细认知。
向TA提问 私信TA
关注
![]()
展开全部
试试这样吧
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
TmpRect: TRect;
begin
with PageControl1.Canvas do
begin
Brush.Color := clBlack;
Font.Color := clWhite;
FillRect(Rect);
TmpRect := Rect;
OffsetRect(TmpRect, 0, 3);
DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption), -1, TmpRect, DT_CENTER or DT_VCENTER);
end;
end;
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
TmpRect: TRect;
begin
with PageControl1.Canvas do
begin
Brush.Color := clBlack;
Font.Color := clWhite;
FillRect(Rect);
TmpRect := Rect;
OffsetRect(TmpRect, 0, 3);
DrawText(Handle, PChar(PageControl1.Pages[TabIndex].Caption), -1, TmpRect, DT_CENTER or DT_VCENTER);
end;
end;
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
