5,392
社区成员
发帖
与我相关
我的任务
分享delphi radioButton和checkbox字体怎么改
delphi radioButton和checkbox 字体差错颜色怎么改？我设置了Font的Color，但根本没用，还是黑色的。
这是为什么？怎么解决？
ParentFont也设置成false了。
求大虾解答。
这是为什么？怎么解决？
ParentFont也设置成false了。
求大虾解答。
...全文
请发表友善的回复…
发表回复
guanlianan 2013-07-17
- 打赏
- 举报
delphi xe3 在windows7下也不行，不知道其他工具和系统下的情况
oxboy 2011-08-16
- 打赏
- 举报
我用DELPHI 2010 在 WINDOWS 7 下也是遇到同样的问题。
dropme 2011-05-31
- 打赏
- 举报
delphi7，你加上xpmanifest控件，估计也改不了了，帖子上说这东西由系统的theme确定了~
yqdragon 2011-05-31
- 打赏
- 举报
delphi7可改
dropme 2011-05-31
- 打赏
- 举报
楼上的用delphi几啊？我用delphi2010试了，改不鸟~
bdmh 2011-05-31
- 打赏
- 举报
他们自己不就有font属性吗，我改过了，可以改
dropme 2011-05-31
- 打赏
- 举报
google了一下，改fontcolor没用的貌似，要么用三方控件，要么自己写一个。
网上找的最简单的办法是：
TCheckBox = class(StdCtrls.TCheckBox)
public
procedure CNCtlColorStatic(var Message: TWMCtlColorStatic); message CN_CTLCOLORSTATIC;
end;
procedure TCheckBox.CNCtlColorStatic(var Message: TWMCtlColorStatic);
begin
SetTextColor(Message.ChildDC, ColorToRGB(clRed)); // or RGB(255,0,0));
SetBkMode(Message.ChildDC, TRANSPARENT);
Message.Result := GetStockObject(NULL_BRUSH);
end;
http://stackoverflow.com/questions/2356431/how-can-you-change-the-font-color-of-a-theme-enabled-control
网上找的最简单的办法是：
TCheckBox = class(StdCtrls.TCheckBox)
public
procedure CNCtlColorStatic(var Message: TWMCtlColorStatic); message CN_CTLCOLORSTATIC;
end;
procedure TCheckBox.CNCtlColorStatic(var Message: TWMCtlColorStatic);
begin
SetTextColor(Message.ChildDC, ColorToRGB(clRed)); // or RGB(255,0,0));
SetBkMode(Message.ChildDC, TRANSPARENT);
Message.Result := GetStockObject(NULL_BRUSH);
end;
http://stackoverflow.com/questions/2356431/how-can-you-change-the-font-color-of-a-theme-enabled-control
南方的他 2011-05-31
- 打赏
- 举报
是不是设置了ParentFont属性了？一般改Font是可以的。
