Как изменить стандартный цвет ProgressBar?
Способ первый
procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage( ProgressBar1.Handle, $0409, 0, clGreen );
end; |
Способ второй
uses
..., CommCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
Progressbar1.Brush.Color := clTeal;
SendMessage( ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow );
end; |