A对
B错
利用MediaPlayer 组件实现一个播放wav声音文件的播放器。用户可自己选择要打开的 wav文件,并在播放时有播放进度提示(如图)。首先在在窗体中添加1个MediaPlayer组件MediaPlayer1、1个标签组件Label1、2个按钮组件(“打开文件”-Button1,“退出”-Button2),1个时钟组件Timer1和1个OpenDialog组件OpenDialog1,一个gauge组件(用作播放进度显示)。进度提示条每隔0.1秒更新一次进度。将程序补充完整。 procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute Then Begin MediaPlayer1.filename := OpenDialog1. (①) ; Label1.(②) := OpenDialog1.filename; MediaPlayer1.open; //打开声音文件 MediaPlayer1. (③) ; //开始播放 Timer1.enabled := (④) ; end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Interval := (⑤) ; //每隔0.1秒更新一次进度 gauge1.maxvalue := MediaPlayer1.length; gauge1. (⑥) := MediaPlayer1.Position; //更改进度 end; procedure TForm1.Button2Click(Sender: TObject); begin close; end;
填空题查看答案
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示: 主窗体上建立的对象有Panel1、Animate1、Button1(加载AVI文件)、Button2(退出)、Button3(播放)、Button4(停止)和OpenDialog1。 子窗体上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。 单击“加载AVI文件”按钮,会弹出打开文件对话框。用户指定一个.avi的文件后,动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画,单击“停止”按钮可停止播放。 单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。 下面是Unit1的代码部分,请在下划线处完成程序填空。
填空题查看答案
状态条组件一般放置在窗体的底部,用于显示应用程序的执行状态及相关的提示信息,状态条无法划分多个区域,所以只能显示一条信息。
判断题查看答案
通过Animate对象的()属性设置,可以指定系统标准的AVI动画演示。
填空题查看答案
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示: 主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1(打开文件)、Button2(播放)、Button3(暂停)、Button4(退出)。 子窗体Form2上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。 单击“打开文件”按钮,会弹出打开文件对话框。用户指定一个要播放的文件后,单击“播放”按钮可播放多媒体文件,单击“暂停”按钮可暂停播放。 单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。 下面是Unit1的代码部分,请在下划线处完成程序填空。
填空题查看答案
下面哪个组件不是容器组件()
单选题查看答案
请选出下列组件中,哪个属于非可视的组件?()
多选题查看答案
Quick Report 组件用于产生报表,它只有一个组件。
判断题查看答案
按钮组件和编辑框组件能够响应的事件有些是相同的。
判断题查看答案