Я думаю, надо сделать примерно так:
Код:
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;
Но как же всё-таки указать ему условие о нажатой кнопке мыши?