[aleksnine]

Возможно ли сделать прокрутку с помощью Trackbar ?

[4erep_88]

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
ListBox1.Selected[TrackBar1.Position]:=true;
end;

[aleksnine]

Спасибо

[vah-smile]

А как сделать прокрутку трека если у нас есть MediaPlayer1 и TrackBar1?

[Klassenas]

Меня тоже этот вопрос интересует. Собственно, если использовать TrackBar только для прокрутки или только для отображения позиции трека, то тут ничего сложного нет. А вот как эти функции объединить на одном TrackBar'е - непонятно.

[vah-smile]

Сообщение от Klassenas

... Собственно, если использовать TrackBar только для прокрутки или только для отображения позиции трека, то тут ничего сложного нет.

А как именно это сделать для прокрутки трека?

[lmikle]

Да просто отключай один из обработчиков, пока работает второй.

[vah-smile]

Сообщение от lmikle

Да просто отключай один из обработчиков, пока работает второй.

А можна выложить код? Просто я не настолько велик в делфи.

[lmikle]

Ну хорошо. Предположим, что во время проигрывания у нас позиция трекбара обновляется по таймеру... Вот обработчик таймера:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Timer1Timer(Sender :TObject); begin   // Отключаем обработчик   TrackBar1.OnChange := Nil;     // Далее делаем свои действия   TrackBar1.Position := Random(100); // ну или что там у него     // возвращаем обработчик   TrackBar1.OnChange := TrackBar1Change; end;

[vah-smile]

Вот сделал следующее:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.ListBox1DblClick(Sender: TObject); begin   with MediaPlayer1 do        begin              Filename := Listbox1.items.strings[listbox1.itemindex];              Open;              Display := Panel2;              DisplayRect := Panel2.ClientRect;              Play;        end;   TrackBar1.Max := MediaPlayer1.Length;   Timer1.Enabled := True; end;   procedure TForm1.Timer1Timer(Sender: TObject); begin   TrackBar1.Position := Mediaplayer1.Position;   MediaPlayer1.Play; end;

В итоге TrackBar1 "следит" за воспроизведением. А как сделать так, чтобы можна было бы перематывать воспроизведение (например, при помощи мыши)? Так как код:

Код:

1 2 3 4

procedure TForm1.TrackBar1Change(Sender: TObject); begin  Mediaplayer1.Position := TrackBar1.Position; end;

решает эту проблему, но видео тормозит (идет преривание при каждом увеливении TrackBar1.Position и Mediaplayer1.Position).

[Страдалецъ]

Так меняйте позицию в тракбаре по отпусканию левой кнопки мыши в пределах трэкбара.

[Klassenas]

Сообщение от Страдалецъ

Так меняйте позицию в тракбаре по отпусканию левой кнопки мыши в пределах трэкбара.

Я вот уже целый день голову ломаю, как задать условие для того, чтобы процедура TrackBar1Change работала только при условии нажатой кнопки мыши.

[Klassenas]

Сообщение от vah-smile

Вот сделал следующее:

Код:

В итоге TrackBar1 "следит" за воспроизведением.

Эта задача решается проще:

Код:

1 2 3 4 5 6

procedure TForm1.Timer1Timer; begin   with MediaPlayer1 do     if FileName<>'' then       TrackBar1.Position:=Round(200*Position/Length); end;

В моём случае 200 - число делений в тракбаре (max=200).
При этом в ListBox никаких манипуляций с таймером и тракбаром делать не надо.
Аналогично организуется и процесс перемотки:

Код:

1 2 3

with MediaPlayer1 do   if FileName<>'' then     Position:=Round(TrackBar1.Position*Length/200);

Но вопрос о условии нажатой кнопки мыши при этом всё равно остаётся открытым.

[Klassenas]

Я думаю, надо сделать примерно так:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.TrackBar1Change(Sender: TObject); begin if Trackbar1.MouseInClient and {нажата левая кнопка мыши} then Begin with MediaPlayer1 do   if FileName<>'' then     Position:=Round(TrackBar1.Position*Length/200); end else exit; end;

Но как же всё-таки указать ему условие о нажатой кнопке мыши?

[mak-karpov]

Вот тут всплывал вопрос

Плеер