Delphi-Help

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

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

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


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

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

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

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

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

Авторизация



Счетчики