Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Вопрос по Trackbar

Автор: Артемий2 25.11.2006 18:50

Здрастье! У меня на плеере лежит 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 этот цикл не работает, так как там через каждую секунду происходит заикание! Но вот в чем вопрос: неудобно хватать ползунок и тащить его в нужное место. Особо ленивый народ просто хочет ткуть мышкой по нужному месту и чтоб ползунок сам туда приплыл! Как это сделать? dry.gif

Автор: volvo 25.11.2006 18:57

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

Автор: Артемий2 25.11.2006 19:01

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