本程序由主窗体form1和子窗体form2组成,设计界面如下图所示: 主窗体上建立的对象有Panel1、Animate1、Button1(加载AVI文件)、Button2(退出)、Button3(播放)、Button4(停止)和OpenDialog1。 子窗体上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。 单击“加载AVI文件”按钮,会弹出打开文件对话框。用户指定一个.avi的文件后,动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画,单击“停止”按钮可停止播放。 单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。 下面是Unit1的代码部分,请在下划线处完成程序填空。
本程序由主窗体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.
与Load Form2等效的语句是()。
某系统界面类(如Form1、Form2等类)与数据访问类(如DAO1、DAO2等类)设计如图,类之间的调用关系较为复杂。请指出设计存在的问题,并基于迪米特法则进行重构。
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示: 主窗体上建立的对象有Image1、Button1(加载图片)、Button2(退出)、OpenDialog1。 子窗体上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。 单击“加载图片”按钮,会弹出打开文件对话框。用户指定一个图像文件后,图像加载到Image1显示区中。 单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。 下面是Unit1的代码部分,请在下划线处完成程序填空。
要想通过单击Form2上的Command1,从屏幕(而非内存中)上清除Form2窗体,则可在Command1的单击事件中,使用()命令。
与Load Form2等效的语句是()。
在同一个工程中,在窗体Form1通用段声明PublicaAsBoolean,则在窗体Form2的事件过程中()访问该变量。
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示: 主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1(打开文件)、Button2(播放)、Button3(暂停)、Button4(退出)。 子窗体Form2上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。 单击“打开文件”按钮,会弹出打开文件对话框。用户指定一个要播放的文件后,单击“播放”按钮可播放多媒体文件,单击“暂停”按钮可暂停播放。 单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。 下面是Unit1的代码部分,请在下划线处完成程序填空。