Código Delphi [-]procedure TForm1.pnlvideoResize(Sender: TObject); begin Mplayervideo.DisplayRect:=Rect(0,0,pnlvideo.Width,pnlvideo.Height) { tambien debe estar en una parte donde se ejecute cada vez que se abra un nuevo video despues de Mplayervideo.play } end;
procedure TForm1.pnlvideoResize(Sender: TObject); begin Mplayervideo.DisplayRect:=Rect(0,0,pnlvideo.Width,pnlvideo.Height) { tambien debe estar en una parte donde se ejecute cada vez que se abra un nuevo video despues de Mplayervideo.play } end;