Как изменить позицию 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; |