德尔福：如何运行窗体2在Form1.TMoviePlayer

2013-05-29 35 views 0 likes

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上播放。快速无约束。我想要。视频上的文字。

来源

2013-05-29 k.bon

回答

PopupMenu 
ShowModal 
Check propertismovieplayer1

来源

2013-05-31 21:24:10 user2123286

德尔福：如何运行窗体2在Form1.TMoviePlayer

回答

相关问题