Botones Con Color

[rsantosr]

Una forma muy sencilla si necesidad de otros componentes es utilizando un Panel...

Insertas un Panel y cambias sus propiedades
bevellInner=bvraised;
BevelOuter=bvraised;

en su evento on mouse down

tpanel(sender).BevelInner:=bvLowered;
tpanel(sender).BevelOuter:=bvLowered;

en su evento on mouse up

tpanel(sender).BevelInner:=bvRaised;
tpanel(sender).BevelOuter:=bvRaised;

Ahora solo tienes que ajustar el tamaño,el caption y otras propiedades como el color y el grosor del borde para cambiar el aspecto. Hasta puedes agregarle a los eventos que cambie de color al ser pulsado.
Con este código no necesitarás escribirlo nuevamente para cada panel que insertes basta con asignarles a todos los mismos eventos.

No será un botón pero es lo más parecido a un botón con color y funciona igual

[fidel]

Hola:

Otro truco para hacer un botón coloreado, pero es un SpeedButton.

Poner un TPanel en form1, luego poner un TSpeedButton dentro del Tpanel; Configurar la propidad Autozise del TPanel a True (TPanel.Autozise := true), luego configurar la propidad Flat del TSpeedButton a true (TSpeedButton.flat := true) y listo cuando le cambies el color al TPanel el TSpeedButton tendrá el mismo color que el TPanel.

Para agregar buenos efectos al nuevo TButton Puedes jugar con las Siguiente propiedades del TPanel BevelInner, BevelOuter, Bevelwidth, BorderWidth, BorderStyle; y recuerda que tienes todas las caracteristicas Visuales de un TPanel y el poder de un TSpeedButton .

Un saludo.

[Diego827]

Siempre había utilizado el panel pero intentare el speedbutton y postro las imágenes, (no me había dado cuenta de lo viejo del post!!!!!!!)