Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Отображение хода процесса (ProgressBar) Как изменить стандартный цвет ProgressBar?

Как изменить стандартный цвет ProgressBar?

Оцените материал
(0 голосов)

Как изменить стандартный цвет 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;

Авторизация



Счетчики