各位大侠好，在下有几事相求： 1：用MediaPlayer控件编程时如何知道一首歌曲完成？有什么事件发生？注意不是DELPHI自带的，还有RealPlayr的事件。 2：form2.WindowsMediaPlayer1.URL:=('E:\MTV\***.MPG'); form2.WindowsMediaPlayer1.controls.play; form2.WindowsMediaPlayer1.fullScreen:=true;//这条语句放在这不起作 用，不能切到全屏。请问要放到什么地方。 3：RealPlayer控件为什么放*.mpg文件时出错。 4：我用的是双头显卡，用以下语句将显示输到电视机上如果窗体大于视频文件显示是黑屏，小于视频文件大小正常。 procedure TForm1.Button3Click(Sender: TObject); begin form3:=tform3.Create(application); form3.Show; form3.RealAudio1.SetSource('E:\我的文件\01.rmvb'); form3.RealAudio1.DoPlay; form3.RealAudio1.SetFullScreen; end; procedure TForm3.FormShow(Sender: TObject); var r:TRECT; begin r:=screen.Monitors[1].BoundsRect; Form3.SetBounds(r.Left,r.Top,r.Right,r.Bottom); form3.RealAudio1.SetFullScreen;//同样这条语句不起作用 end; 但是用MediaPlayer控件显示到电视机上正常。 各位大侠拜托了，谢谢。