试题详情
简答题 本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1显示区中。 单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation {$R*.dfm} uses （①） procedure TForm1.Button1Click(Sender:TObject);//加载图片 begin if（②）then Image1.Picture.LoadFromFile(③) end procedure TForm1.Button2Click(Sender: TObject)//退出 begin if（④）=mrYes  then（⑤） end; end.
  • ①unit2；②opendialog1.Execute；③opendialog1.FileName；④form2.ShowModal；⑤close

  • 关注下方微信公众号，在线模考后查看

热门试题