Cambiar de color un button

[ecfisa]

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:

• ¿Como puedo colorear un TButton?
• TColorButton
• ColorButton

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.