delphi - Delphi:Form1.TMoviePlayer で Form2 を実行する方法

Question

このフォーム1

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;

このフォーム2

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

... TextForm2 movieplayer1 Form1 Play で点滅します。思わず速攻。私が欲しい。ビデオのテキスト。

Answer 1

PopupMenu
ShowModal
Check propertismovieplayer1