Ver Mensaje Individual
  #9  
Antiguo 06-12-2007
Avatar de Hola_mundo
Hola_mundo Hola_mundo is offline
Registrado
 
Registrado: dic 2007
Posts: 5
Reputación: 0
Hola_mundo Va por buen camino
Perdon por no explicarme bien.....colocando el codigo que tu pusiste previamente y volviste a poner recien....me sucede eso....me salta un ventana aperte de temaño "pequeño" con el icono de sistema... en donde se me reproduce el video....
Aqui el peqeuño codigo que implemente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin  
 IF Opendialog1.execute then begin   
  Mediaplayer1.filename:= opendialog1.filename;   
  Mediaplayer1.Open;   
  // A la propiedad dysplay no le asigno nada, la dejo "vacia"
  MediaPlayer1.DisplayRect := Rect(0, 0, screen.Width, screen.Height);
  Mediaplayer1.Play;
 end;
end;


Perdon por ser tan pesado.....pero no me gusta quedarme con dudas...jajaj...creo que a nadie.

Por otro lado....logree el efecto de reproducir en pantalla completa de la siguietne forma....pero que no es la correcta:

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

Pero cuando quiero seleccionar otro video con el TOpendialog solo escucho el audio....pero no logro ver el video....solo veo el panel.
Gracias por tu tiempo.

Última edición por Hola_mundo fecha: 06-12-2007 a las 21:49:22.
Responder Con Cita