delphi radioButton和checkbox字体如何改

2013-07-21

delphi radioButton和checkbox字体怎么改delphi radioButton和checkbox 字体差错颜色怎么改？我设置了Font

delphi radioButton和checkbox字体怎么改
delphi radioButton和checkbox 字体差错颜色怎么改？我设置了Font的Color，但根本没用，还是黑色的。
这是为什么？怎么解决？
ParentFont也设置成false了。
求大虾解答。
[解决办法]
是不是设置了ParentFont属性了？一般改Font是可以的。
[解决办法]
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
[解决办法]
他们自己不就有font属性吗，我改过了，可以改
[解决办法]
delphi7，你加上xpmanifest控件，估计也改不了了，帖子上说这东西由系统的theme确定了~

热点排行

.NET

delphi radioButton和checkbox字体如何改