[alyamus]

friends !!!

What's wrong with this code ?

Код:

procedure TForm_player.trackbarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pos:integer;
begin
  pos:=round((100 / trackbar.Width)*x);//***позиция клика

  trackbar.position:=(BASS_ChannelGetLength(channel, 0) div 100) * pos ;
if mode=play then exit ;

player;
 end;

mediaplayer forward go problem

[M.A.D.M.A.N.]

this code for get player position, not for change position.

З.Ы. Чо-то странный какой-то поцан, в инете же полным полно примеров медиаплееров.

[angvelem]

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

pos:=round((100 / trackbar.Width)*x);//***позиция клика

Особенно понравилась эта строка.
Весельчак однако ТС.

[lmikle]

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

Особенно понравилась эта строка.
Весельчак однако ТС.

Just this line of code has been copied from some internet resource