Botones Con Color

[Ricardo León]

Alguien Sabe Si Existe La Forma De Ponerle Color A Un Tbutton.

[dec]

Hola,

Tendrás que buscar otros botones/componentes. El botón ("TButton") que acompaña a Delphi no cuenta con la propiedad "Color". Ignoro ahora mismo si podrá o no añadírsele, pero, diría que no sencillamente, puesto que este mismo tema se ha tratado ya en varias ocasiones en estos Foros.

[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!!!!!!!)