Как сделать перемотку при нажатии на компонент ProgressBar??

[Дима я]

Вот у меня есть вертикальный прогрессбар.как сделать чтобы при клике мыши позиция его перемещалась в указанное место??Идея с Top,Left помойму не подходит.Прогрессбар имеет непостоянное значение Мах,то есть оно изменяеться в хлде работы программы.Воть

[DomiNick]

Идея с Top,Left помойму не подходит.Прогрессбар имеет непостоянное значение Мах,то есть оно изменяеться в хлде работы программы.

Причём тут Top и Left..?
А меняться должно не Мах, а Position...

Ну примерно как-то так...

Procedure TForm1.ProgressBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
ProgressBar1.Position:=Round(X*ProgressBar1.Max/ProgressBar1.Width);
End;

[Дима я]

Спасибо думаю сделаю
Токо че делает Round?

[DomiNick]

Position может быть только целым числом, а при делении может получиться дробное...
Round(x) - округляет аргумент...

Ну... Если точнее, это округление не математическое, а до ближайшего чётного числа...)

[Дима я]

Большое СПС
Вот кому интересно что у меня вышло
sGauge1.Progress:=Round(abs(Y*sGaug e1.MaxValue/sGauge1.Height-sGauge1.MaxValue));
Ток это для Gauge

[Alter]

Поищите, уже довали ПОДРОБНЫЕ ответы на форуме про это. Например вот http://www.programmersforum.ru/showt...ht=ProgressBar