本程序由主窗體form1和子窗體form2組成，設(shè)計(jì)界面如下圖所示：
主窗體上建立的對象有Image1、Button1（加載圖片）、Button2（退出）、OpenDialog1。子窗體上建立的對象有Label1、BitBtm1（Yes）、BitBtm2（No）。
單擊“打開文件”按鈕（Button1），會(huì)彈出打開文件對話框。用戶指定一個(gè)圖像文件后，圖像加載到Image1顯示區(qū)中。
單擊“退出”按鈕，會(huì)彈出確認(rèn)對話框（Form2）。如果用戶按“Yes”鍵，程序結(jié)束；如果按“No”鍵，返回主窗體。
下面是Unit1的代碼部分，請?jiān)谙聞澗€處完成程序填空。
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.
您可能感興趣的試卷
你可能感興趣的試題
最新試題
Animate 組件的主要方法中能夠停止動(dòng)畫的播放的是（）。
容器可以用來組織對象，不能定義所包含對象通用的默認(rèn)屬性值。
（）執(zhí)行可以控制程序逐條執(zhí)行語句，每執(zhí)行完一條語句程序都會(huì)停下來，等待用戶發(fā)出執(zhí)行下一條語句的命令。
Alignment 對齊方式屬性，該屬性值決定了顯示區(qū)中內(nèi)容的顯示位置，取值有（）。
對數(shù)據(jù)集執(zhí)行插入、修改、刪除操作，前提是必須具有對數(shù)據(jù)庫的（）權(quán)限。
打開的數(shù)據(jù)集通過BDE訪問一個(gè)數(shù)據(jù)表Table，則調(diào)用Table的（）方法可以使記錄指針指向table第一個(gè)記錄。
一個(gè)表格數(shù)據(jù)感知控件DBGrid對象不但可以同時(shí)顯示多個(gè)（），而且可以同時(shí)顯示多行數(shù)據(jù)。
Delphi的調(diào)試環(huán)境提供了兩種查看變量內(nèi)容的方法是什么？（）
對象查看器中有兩個(gè)標(biāo)簽，分別是（）。
同一類的不同對象如何區(qū)分，主要通過對象的屬性的不同屬性取值來區(qū)分。