Вопрос по Trackbar, Нужна помощь! Опции

[Артемий]

Здрастье! У меня на плеере лежит TrackBar. Я его использую для перемотки музыки. Он у меня нестандартный, так как имеет события OnMouseUp и OnMouseDown! на событие OnMouseUp я использую следующий цикл:

procedure TForm1.TrackBar2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   MediaPlayer1.Position := TrackBar2.Position;
   MediaPlayer1.Play;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
Trackbar2.Position:=MediaPlayer1.Position;
end;

На OnChange этот цикл не работает, так как там через каждую секунду происходит заикание! Но вот в чем вопрос: неудобно хватать ползунок и тащить его в нужное место. Особо ленивый народ просто хочет ткуть мышкой по нужному месту и чтоб ползунок сам туда приплыл! Как это сделать?

[volvo]

Угу... Ну, с OnMouseUp понятно... А что ты делаешь по OnMouseDown, покажи?

[Артемий]

Ничего. А нужно на нем че-то делать? Вроде хорошо работает! Никаких идей нет по моему вопросу?

Сообщение отредактировано: Артемий2 - 25.11.2006 15:42