填空題

本程序由主窗體form1和子窗體form2組成,設(shè)計界面如下圖所示:

主窗體上建立的對象有Image1、Button1(加載圖片)、Button2(退出)、OpenDialog1。子窗體上建立的對象有Label1、BitBtm1(Yes)、BitBtm2(No)。
單擊“打開文件”按鈕(Button1),會彈出打開文件對話框。用戶指定一個圖像文件后,圖像加載到Image1顯示區(qū)中。
單擊“退出”按鈕,會彈出確認(rèn)對話框(Form2)。如果用戶按“Yes”鍵,程序結(jié)束;如果按“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.


您可能感興趣的試卷