ProgressBar - mudando a cor

Top  Previous  Next

uses CommCtrl;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 PostMessage(ProgressBar1.Handle, PBM_SETBARCOLOR , 0 , clLime);

 ProgressBar1.Update;

 ProgressBar1.Position:=50;

end;