0

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

4

1 回答 1

1 
PopupMenu
ShowModal
Check propertismovieplayer1
于 2013-05-31T21:24:10.563 回答