0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1*x2; 3:y :x1 Div x2; End; Edit3.④ :=IntToStr(⑤ end; 26.(10分，每空2分) 本程序由主窗体forml和子窗体form2组成，设计界面如下图所示： EForm1 口× Form2 1回x Panell 是否退出： √Yes ⊙No 打开文件 播放哲 返出 主窗体Forml上建立的对象有Panell.MediaPlayer1.OpenDialogl.Buttonl(打开文 件)、Button2(播放)、Button3(暂停)、Button4(退出)。 子窗体Form2上建立的对象有Labell.BitBtm1(Yes)、BitBtm2(No)。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播 放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation ($R *dfm) uses ① procedure TForml.Button1Click(Sender:TObject);/打开文件 begin if② then 13980: Y : = xl 十x2 ; I: Y : = xl - x2; 2: Y : = xl 铸x2; 3: y : = xl Div x2; End; Edit3. : = IntToStr( end; 一一-一一一一一一一一一-一一----，一一-一一←一一一一-----一-一一一一一一，一一一一-一一一 26. (1 本程序由主窗体 1和子窗体 2组成，设计界面如下图所示: 拉玩丽由罐罐蠢 . ，是否退出: 二:;:「豆豆 ;二 J{T3 • I~ l~ ...., A 1: Form] , ，，':甲需镰露露 主窗体 1上建立的对象有 l. MediaPlayerl. OpenDialogl. Button1 (打开文 件)、 o n (播放)、 t t (暂停)、 tt o n (退出)。 子窗体 2上建立的对象有 ll BitBtm1 (Yes) 、BitBtm2(No) 单击"打开文件"按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击"播 放"按钮可播放多媒体文件，单击"暂停"按钮可暂停播放。 单击"退出"按钮，会弹出确认对话框 "No" 主 窗 下面是 l的代码部分，请在下划线处完成程序填空。 一一一一一一一-一一一一一一-一一-一一一一一一-一一一一一一-一一--一-一-←-一一甲---------一一-…←一~一一-一--一 implementation {$ dfm} uses procedure TForml. Button1Click(Sender: TObject); / /打开文件 begin if 1398 then