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;
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.