Question

关于delphi循环播放视频的问题

为什么每次循环开始的时候，都会闪烁一下？有什么办法不闪烁吗？
源码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Mode=mpStopped then
begin
MediaPlayer1.FileName:='E:\5.avi';
MediaPlayer1.Close;
MediaPlayer1.Open;
MediaPlayer1.Display := Panel1;
MediaPlayer1.DisplayRect := Rect(0,0,Panel1.Width,Panel1.Height);
MediaPlayer1.Play;

end;
end;
end.

Answer 1

Mediaplayer1.ReWind;
MediaPlayer1.Play;