TMediaplayer fullscreen

[Hola_mundo]

Hola dos cosas para recomndar:
1°_ A la hora de elegir el componenete en donde se vizualizara el video es conveniente usar un Tpanel en ves de un TAnimate, ya que con el animate cada ves que quieras redimensinar el formulario notaras que en el video aprarecen como lines cortadas y quedan muy mal. Nose porqeu es el efecto, supongo que por la propiedad canvas del componente, o porque el TAnimate no es capas de reproducir videos de tamaños considerables, ya que esta preparado para reproducir las animaciones simples de windows.

2°_ La line de codigo que escribio enecumene es correcta, solo faltaria agregar esa misma linea en el evento On rezise del formulario....asi cada ves que se redimensione el Form tambien se redimensione la Propiedad Displayrect para el Tpanel o TAnimate. (Sugiero TPanel)

Pequeño ejemplo con un TButoon, TOpendialog, TMediaPlayer y un TPanel:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin  
IF Opendialog1.execute then begin   
 Mediaplayer1.filename:= opendialog1.filename;   
 Mediaplayer1.Open;   
 Mediaplayer1.Display:= panel1;   
 MediaPlayer1.DisplayRect := Rect(0, 0, panel1.Width, panel1.Height);   
Mediaplayer1.Play 
end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin   
 MediaPlayer1.DisplayRect := Rect(0, 0, panel1.Width, panel1.Height)
end;

Espero que te sirva....