单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unitl的代码部分，请在下划线处完成程序填空。 implementation ($R*dfm) uses ① procedure TForm1,Button1Click(Sender:TObject);/打开文件 begin f② then begin MediaPlayer1.FileName:=3 MediaPlayer1.Open; MediaPlayerl.Display:=Panel1;/将Panell做为播放屏幕 MediaPlayer1.DisplayRect:=Rect(0,0,Panell.Width,Panell.Height); end; end; procedure TForm1.Button2Click(Sender:TObject);// begin MediaPlayer1.④ end; procedure TForml.Button3Click(Sender:TObject);// begin MediaPlayer1.Pause; end; procedure TForm1.Button4Click(Sender:TObject);// begin if⑤ =mrYes then close; end; end. 1009单击"退出"按钮，会弹出确认对话框 CForm2) 。如果用户按 "Yes" 键，程序结束;如果按 "No"键，返回主窗体。 下面是 Unit1 的代码部分，请在下划线处完成程序填空。 implementation { $R 铸. dfm} uses ① procedure TForml. Button1ClickCSender: TObject);/ /打开文件 begin if ② begin MediaPlayerl. FileName: =③ MediaPlayer 1. Open; then MediaPlayer 1. Display: = Panel1 ; //将 Pane l1做为播放屏幕 MediaPlayerl. DisplayRect: =Rect(O , O, Panell. Width ,Panel1. Height); end; end; procedure TForm1. Button2ClickCSender: TObject) ; //播放 begin MediaPlayer 1.④ end; procedure TForml. Button3Click(Sender: TObject) ; //暂停 begin 1ediaPlayer l. Pause; end; procedure TForm1. Button4ClickCSender: TObject) ;//退出 begin if ⑤ =mrYes then c\ose; end; end. 1009