Delphi-Help

Главная Статьи Отображение хода процесса (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;

Авторизация



Счетчики