Button按钮的自定义字体颜色设置为什么没有效果(ParentFont属性为False)?该如何处理

Button按钮的自定义字体颜色设置为什么没有效果(ParentFont属性为False)?
Button按钮的自定义字体设置后,其字体能变为设定的样式,但颜色不能!

        请高手指点(ParentFont属性为False)!


------解决方案--------------------
可以用getdc然后自已再改button的颜色，有点麻烦

当然用TBitbtn就OK啦
------解决方案--------------------
button的字体是windows自已画的

只能是黑色，没得改

procedure TForm1.Button1Click(Sender: TObject);
var
FullscreenCanvas:TCanvas;
dc:HDC;
begin
DC := GetDC (button1.Handle);
FullscreenCanvas := TCanvas.Create;
FullscreenCanvas.Handle := DC;
FullscreenCanvas.Brush.Color := clred;
FullscreenCanvas.FillRect(Rect(0,0,button1.Width,Button1.Height));
FullscreenCanvas.TextRect(Rect(0,0,button1.Width,Button1.Height),1,2,button1.Caption);
FullscreenCanvas.Free;
ReleaseDC (0, DC);
end;


只有重画

还有像listview上面的标题栏这些都一样