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

【问题标题】：Delphi:How to run Form2 On Form1.TMoviePlayerDelphi：如何在 Form1.TMoviePlayer 上运行 Form2
【发布时间】：2013-05-29 14:18:49
【问题描述】：

这个表格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 上闪烁。不由自主地快。我想要。视频上的文字。

【问题讨论】：

标签： delphi fonts delphi-xe3 movieplayer

【解决方案1】：

PopupMenu
ShowModal
Check propertismovieplayer1

【讨论】：