Как узнать значение 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; |