858 - Alterando a Cor de Fundo do Progressbar

Declarar a unit CommCtrl em uses.


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SendMessage(SeuProgressBar.Handle, PBM_SETBARCOLOR, 0, clRed);
end;

--------------------------------------------------------------------------------

Enviada por: Jose do Amparo Soares
http://lloydsoft.no-ip.org

Desenvolvendo Soluções