Delphi：如何在Form1.TMoviePlayer上运行Form2

Question

此Form1

movieplayer1.UsePitchTempo:=false;
movieplayer1.FileName :=FileNamePlay;
txtDur.Text := Format('%f', [Form111.movieplayer1.Duration] );
txtHeight.Text :=  Format('%d', [Form111.movieplayer1.VideoHeight] );
txtWidth.Text :=  Format('%d', [Form111.movieplayer1.VideoWidth] );
TrackBar1.Min := 0;
TrackBar1.Max :=10000;
TrackBar1.Position :=10000;
movieplayer1.SoundVolume:=0;
movieplayer1.Play();
movieplayer1.AspectRatio :=false;
movieplayer1.Width :=  screen.DesktopWidth  ;
movieplayer1.Height :=  screen.DesktopHeight ;
Form2.Show;

此Form2

Form2.Color :=0;
Form2.TransparentColor := true;
Form2.TransparentColorValue :=0;
Form2.DoubleBuffered := true

... TextForm2在movieplayer1 Form1播放时闪烁。 快速不由自主地。 我想要。 视频中的文字。

Answer 1

PopupMenu
ShowModal
Check propertismovieplayer1