Видео проигрватель

[Claster]

Не все ровно не то ((((
неконает

[raxp]

TC, интересно, на каком основании вы используете в своем проекте методы от компонента TMediaPlayer-а на импортированный ActiveX WMP? (о чем сказал еще в посте #4) это никак не одно и тоже.

сделайте так:

//MediaPlayer.Open;
//MediaPlayer.DisplayRect:=Rect(left,top,width,height);

 MediaPlayer.DefaultInterface.URL:= OpenDialog1.FileName;
 MediaPlayer.controls.play;
end;

[Claster]

а как сделать что бы при открытии фильма он сразу во весь экран становился?

[raxp]

...а пройдитесь в теме на пару-тройку постов назад.

[Claster]

Все нормал я разобрался........Есть ещё вопрос я сделал плейлист в ListBox

listbox.Clear;
  listbox.Items.Add(opendialog1.filename);
  listbox.ItemIndex:=0;

а как сделать что бы можно было мышкой файлы в плейлист перетаскивать и чтобы они туда добавились )

[raxp]

ищите drag&drop ...и скачайте себе базу DRKB/

[Claster]

есть примерчики????

[raxp]

DRKB или delphi-world, там есть примерчики и много всего полезного.

[Claster]

Разобрался с перетаскиванием элементов в списке ListBox а как сделать что бы из OpenDilog можно было перетаскивать в ListBox

procedure TForm1.ListBoxDragDrop(Sender, Source: TObject; X, Y: Integer);
begin

with (Sender as TListBox) do
 Items.Move(ItemIndex,ItemAtPos(Point(x,y),True));

end;

procedure TForm1.ListBoxDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept := (Sender=Source);
end;

end.

[Claster]

еще не могу понять в чем проблемма ........хочу что бы с помощью TrackBar перематывалось видео в MediaPlayer

вот сделал так но что-то не то

procedure TForm1.TrackBarChange(Sender: TObject);
begin
if trackbar.position>mediaplayer.Position then
 begin
 mediaplayer.position:=trackbar.position;
 mediaplayer.Play;
 end;
if trackbar.position+100<mediaplayer.Position then
 begin
 mediaplayer.position:=trackbar.position;
 mediaplayer.Play;
 end;
end;