怎样让播放的视频文件随着窗口缩放

Question

我用TMediaPlayer播放视频文件,把它显示在TPlan上,TPlan会随着窗口缩放,视频文件却不动,怎么办?

Answer 1

那个词写错了,是TPanel,不是TPlan.

Answer 2

使用DisplayRect属性
D i s p l a y R e c t属性属于T R e c t类型，用于指定AV I文件的输出尺寸。通过D i s p l a y R e c t属性，可以使
AV I文件的输出缩放成一个指定的尺寸。例如，要使 AV I文件占据 P a n e l l的整个客户区，就把
D i s p l a y R e c t设为P a n e l l的尺寸：
M e d i a P l a y e r 1 . D i s p l a y R e c t : = R e c t ( 0 , 0 , P a n e l l . Wi d t h , P a n e l l . H e i g h t ) ;
可以这样处理B u t t o n l的O n C l i c k事件：
procedure TForm1.Button1Click(Sender:TO j b e c t ) ;
b e g i n
if OpenDialog1.Execute then begin
M e d i a P l a y e r 1 . F i l e n a m e : = O p e n D i a l o g 1 . F i l e n a m e ;
M e d i a P l a y e r 1 . O p e n ;
M e d i a P l a y e r 1 . D i s p l a y R e c t : = R e c t ( 0 , 0 , P a n e l l . Wi d t h , P a n e l l . H e i g h t ) ;
e n d ;
e n d ;