Cambiar el color de un TProgressBar

Artículo por Club Developers · 11 marzo 2006

2461 vistas

El componente TProgressBar no tiene la propiedad color. No obstante, existe un mensaje de Windows que nos permite modificar directamente el control: PBM_SETBARCOLOR.



delphi
  1. Const
  2.   { definición del mensaje }
  3.   PBM_SETBARCOLOR = WM_USER + 9;
  4.  
  5. procedure TForm1.Button1Click(Sender: TObject);
  6. begin
  7.   { envio del mensaje con el color deseado }
  8.   SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clLime);
  9. end;



Nota: Este código no funciona con el tema XP activado.