本程序由主窗体forml和子窗体form2组成,设计界面如下图所示:
主窗体上建立的对象有Imagel. Buttonl(加载图片),Button2(退出)、OpenDiaiogl。
子窗体上建立的对象有Labell. BitBtml(Yes),BitBtm2(No)
单云“加载图片”按钮,会弹出打开文件对话框。用户指定一个图像文件后,图像加载到
Imagel显示区中。
单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按
"No"键,返回主窗体。
下面是Unitl的代码部分,请在下划线处完成程序填空。
__________________________________________________________________________________
implementation
($R * . dfm}
uses①______;
procedure TForml. ButtonlClick (Sender: TObject);
begin
if②_______________________then
Imagel. Picture. LoadFromFile(③______________________)
end;
procedure TForml. Buttot.2Click (Sender: TObject);
begin
if④_________________________= mrYes then
⑤_____________;
end;
end.
___________________________________________