Setting button font color 1

[RSieffert]

Why doesn't the following change the button's color when the button is clicked?

procedure TfrmStart.Button1Click(Sender: TObject);
begin
(Sender as TButton).Font.Color := clRed;
end;

 

[DelphiAaron]

it looks like a tbuttons font color cant be changed from black..

use a TBitBtn

 

[RSieffert]

Your suggestion of using TBitBtn will solve the problem. I wonder why it doesn't work on TButton? Bug in Delphi?

 

[bbegley]

I think delphi just puts a wrapper on the windows object.

 

[delphiman]

>I wonder why it doesn't work on TButton? Bug in Delphi?

I have noticed this about Delphi all along. If it is a bug Borland doesn't appear to want to do anuthing about it.

>Your suggestion of using TBitBtn will solve the problem.
Correct!

 

[LorenPechtel]

It's not Borland's bug, but Microsoft's.