Cambiar de color un button

[lucas05]

Hola, estoy usando Delphi 7. Tengo un menú con varios buttons y a medida que presiono la tecla Tab me voy desplazando entre ellos.
Quería saber como hacer para cuando me vaya moviendo ente los buttons estos cambien de color o agregarle algún efecto.
Es para que el usuario del sistema pueda diferenciar mejor cual es botón que va seleccionando.

Saludos y muchas gracias.

[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.

[lucas05]

Hola ecfisa, gracias por tu ayuda. Utilice el código que me recomendaste y funciona bien.
Una consulta, es posible cambiar el color del texto del botón.

Desde ya muchas gracias

[ecfisa]

Hola.

No Lucas, lamentablemente entra en la misma bolsa que el color de fondo... Si intentas cambiarlo desde el Object Inspector -> Font -> Color, verás que lo ignora.

Un saludo.

[roman]

De hecho, sí puede cambiarse el color de un botón, o, mejor dicho, puedes crear un componente derivado de TButton que tenga color, pero tienes que dibujarlo tú mismo. Es lo que hace Zarco Gajic en su componente TColorButton.

// Saludos

[ecfisa]

Hola Román.

Estoy totalmente de acuerdo con vos (el 2° enlace de mi primer mensaje es el de Zarko). Pero usando el código que le adjunté, no va a poder...

Saludos.

[roman]

¡Ah! Disculpa, no había caido en la cuenta de ese enlace, pero me dejé llevar por tu afirmación de que no se puede... cuando sí se puede!!

// Saludos