Hola.
No es posible cambiar el color a un
TButton por que es windows quién gestiona su color, pero te pongo unos enlaces a posibles alternativas:
Otra opción, por ejemplo, podría ser:
Código Delphi
[-]
...
type
TButton=class(StdCtrls.TButton)
procedure CMMouseEnter(var Msg: TMessage); message CM_MouseEnter;
procedure CMMouseLeave(var Msg: TMessage); message CM_MouseLeave;
end;
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
...
private
public
end;
...
implementation
procedure TButton.CMMouseEnter(var Msg: TMessage);
begin
SetFocus;
Height:= Height + 3;
Width:= Width + 3;
Font.Style:= [fsBold];
Font.Size:= Font.Size + 2;
end;
procedure TButton.CMMouseLeave(var Msg: TMessage);
begin
Height:= Height - 3;
Width:= Width - 3;
Font.Style:= Font.Style-[fsBold];
Font.Size:= Font.Size - 2;
end;
...
Que hará que el texto del botón incremente su tamaño y el del font, se ponga en negrita y obtenga el foco cuando el mouse pase sobre él, regresando a su estado anterior cuando salga.
Saludos.