Delphi - Aiuto

Per piacere aiutatemi!

Praticamente ho fatto un mediaplayer che riproduce avi ma quando carico il file sento solo il suono,e la finestra che viene copia tutto quello sotto di essa.

Grazie.

Ecco il codice:
unit unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, MPlayer, MMSystem, ExtCtrls;



type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
MainMenu1: TMainMenu;
File1: TMenuItem;
Aiuto1: TMenuItem;
Apri1: TMenuItem;
Esci1: TMenuItem;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
Button5: TButton;
Button6: TButton;
Panel1: TPanel;
procedure Apri1Click(Sender: TObject);
procedure Esci1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);





private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;
nomefile:string;




implementation

{$R *.dfm}


{*****Procedure e funzioni non legate ad eventi*****}


{**************************************************}


procedure TForm1.Apri1Click(Sender: TObject);
var
i:integer;
begin
OpenDialog1.Execute;
for i:=0 to OpenDialog1.Files.Count-1 do
begin
nomefile:= ExtractFileName(OpenDialog1.Files.Strings[i]);
end;
label1.Caption:=nomefile;
with MediaPlayer1 do
begin
FileName:= nomefile;
Open;
Play;
button1.Enabled:=false;
button2.Enabled:=true;
button3.Enabled:=true;
button4.Enabled:=true;
end;
end;
procedure TForm1.Esci1Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if nomefile<>'' then
begin
button2.Enabled:=true;
button1.Enabled:=false;
mediaplayer1.Play;

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if (nomefile<>'') then
begin
button2.Enabled:=false;
button1.Enabled:=true;
mediaplayer1.pause;

end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if nomefile<>'' then
begin
button2.Enabled:=false;
button1.Enabled:=true;
mediaplayer1.close;
mediaplayer1.Open;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if nomefile<>'' then
begin
mediaplayer1.stop;
nomefile:='';
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=false;
label1.Caption:='';
end;
end;







end.

ma hai collegato il componente MediaPlayer1 a un Pannello (o simile) per la visione?

si ma non mostra niente

potrebbe dipendere dal file .avi... con il mio infatti non funzionava con tutti gli .avi Prova ad aprire un file diverso...