Media-Player-Problem

[Fussball-Robby]

Die Größe des Videos erhälts du über TMediaPlayer.DisplayRect. Hier ein kleines Beispiel, um die Größe des Panels anzupassen:

Delphi-Quellcode:

procedure ResizeDisplay(MP: TMediaPlayer);
begin
  with MP do
  begin
    Display.Width := DisplayRect.Right - DisplayRect.Left;
    Display.Height := DisplayRect.Bottom - DisplayRect.Top;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with MediaPlayer1 do
  begin
    Filename := 'pfad\zum\file\file.avi';
    Open;
    Display := Panel1;
    ResizeDisplay(MediaPlayer1);
    Play;
  end;
end;