本程序由主窗体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.
您可能感兴趣的试卷
最新试题
枚举类型的元素就是标识符,所以必须符合标识符的规定(不能是数字、不能是保留字等)。
简述DBListBox和DBLookupListBox的区别。
如果为某个对象设置了Font 属性,那么该对象的ParentFont 属性值会变为False。
若要结束当前工作并退出Delphi 开发环境,可执行()命令。
同一类的不同对象如何区分,主要通过对象的属性的不同属性取值来区分。
Image 组件位于组件面板的Additional 标签上,用来把位图、()和图元文件显示在窗体中。
Animate(动画)组件的主要方法有()。
当Query 对象中存储一条Update 语句时,我们执行该语句需要调用Query 的()方法。
()执行可以控制程序逐条执行语句,每执行完一条语句程序都会停下来,等待用户发出执行下一条语句的命令。
打开的数据集通过BDE访问一个数据表Table,则调用Table的()方法可以使记录指针指向table第一个记录。