PostMessage(ProgressBar1.Handle, $0409, 0, clgreen); //前景色设置为绿色
Progressbar1.Brush.Color := clSkyBlue;//背景色为天蓝色
PostMessage(ProgressBar1.Handle, $0409, 0, clgreen); //前景色设置为绿色
Progressbar1.Brush.Color := clSkyBlue;//背景色为天蓝色
转载于:https://my.oschina.net/jingshishengxu/blog/686987