2.(10分，每空2分) 本程序由主窗体forml和子窗体form2组成，设计界面如下图所示： Formt Forn2 是否退出 四 Yes 打进文件出 主窗体Forml上建立的对象有Panell、MediaPlayer1、OpenDialog1、Button1(打开文 件)、Button22(播放)、Button3(暂停)、Button4(退出). 子窗体Form2上建立的对象有Labell、BitBtml(Yes)、BitBtm2(No)。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播 放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation {$R￥.dfm} uses ① procedure TForml.ButtonlClick(Sender:TObject); /打开文件 begin if then begin MediaPlayerl.FileName :=3 MediaPlayerl.Open MediaPlayer1..Display:=Panell;/将Panell做为播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panell.Width,Panell.Height); end end; procedure TForml.Button2Click(Sender:TObject);// 14542. (1 本程序由主窗体 1和子窗体 2组成，设计界面如下图所示: 主窗体 1上建立的对象有 ll、 、OpenDialog1 、Button1 (打开文 件)、 tt (播放)、 tt (暂停)、 tt (退出)。 子窗体 2上建立的对象有 ll、 (Yes) 、BitBtm2(No) 单击"打开文件"按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击"播 放"按钮可播放多媒体文件，单击"暂停"按钮可暂停播放。 单击"退出"按钮，会弹出确认对话框 )。如果用户按 "键，程序结束;如果按 "No" 主窗 下面是 it1的代码部分，请在下划线处完成程序填空。 implementation { $R dfm} uses procedure TFormlo Button1Click(Sender: TObject); / /打开文件 begin if then begin MediaPlayerlo FileName: =③ MediaPlayerlo Open; MediaPlay巳rlo Display: = Panell; / /将 ll 放屏幕 MediaPlayerlo DisplayRect : =Rect(O , 0 ,Panell. Width ,Panell. Height); end; end; procedure TFormlo Button2Click(Sender: TObject); / /播放 1454