时钟Timer组件的时间间隔是由Interval属性控制,例如其值为1000时表示时间间隔是1秒。
判断题查看答案
时钟Timer组件的时间间隔是由Interval属性控制,该属性的计量单位是秒,即其值为1,则表示时间间隔为1秒。
判断题查看答案
计时器控件能有规律的以一定时间间隔触发()事件,并执行该事件过程中的程序代码。
填空题查看答案
在窗体上画一个标签(名称为Label1)和一个时钟组件(名称为Timer1),添加2个按钮“开始”(Button1)和“停止”(Button2)。程序运行后,单击窗体“开始”按钮,时钟组件启动,并开始在标签中更新显示当前时间,每隔1秒钟变换一次,按停止按钮停止计时。(见图)。请填空。 然后编写如下几个事件过程: procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled :=(①) ; Timer1.Interval := (②) ; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := (③) ; end; procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled := (④); end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := TimeToStr(⑤); end;
填空题查看答案
利用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;
填空题查看答案
下面哪个组件不是容器组件()
单选题查看答案
请选出下列组件中,哪个属于非可视的组件?()
多选题查看答案
Quick Report 组件用于产生报表,它只有一个组件。
判断题查看答案
按钮组件和编辑框组件能够响应的事件有些是相同的。
判断题查看答案