...change the color of a TProgressbar?

Author: MrBaseball34

Category: VCL

uses
  
CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  
// Set the Background color to teal
  
Progressbar1.Brush.Color := clTeal;
  // Set bar color to yellow
  
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base