Delphi-Help

Главная Статьи Отображение хода процесса (ProgressBar) Как изменить позицию ProgressBar по щелчку мыши на нем?

Как изменить позицию ProgressBar по щелчку мыши на нем?

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


Как изменить позицию ProgressBar по щелчку мыши на нем?

Для горизонтального

procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   ProgressBar1.Position :=
      Round( X * ( ProgressBar1.Max - ProgressBar1.Min ) / ProgressBar1.Width ) + ProgressBar1.Min;
end;

Для вертикального

procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   ProgressBar1.Position :=
      ProgressBar1.Max - Round( Y * ( ProgressBar1.Max - ProgressBar1.Min ) / ProgressBar1.Height );
end;

Авторизация



Счетчики