在窗体上画一个标签(名称为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;
正确答案
答案解析
相似试题
(单选题)
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: 程序运行后,单击命令按钮,则标签中显示的内容是()
(填空题)
在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画3个文本框,名称分别为Text1、Text2和Text3;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”、“=”符;再建立一个含有4个单选按纽的RadioGroup组件,名称为RadioGroup 1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个整数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Text3,程序运行情况如图所示。请填入适当的内容,将程序补充完整。 procedure TForm1.Button1Click(Sender: TObject); var x1,x2,y :Integer; begin x1 := StrToInt(Edit1.(①)); x2 := StrToInt(Edit2.(②)); Case (③).ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. (④) := IntToStr(⑤); end;
(判断题)
在一个项目中,可以根据需要将任何一个窗体定义为主窗体。
(判断题)
在一个项目中,可以有多个窗体,但只能有一个主窗体
(判断题)
在一个项目中,第一个建立的窗体固定就是主窗体,并且再也不设置其他窗体为主窗体。
(填空题)
如果在窗体上设计一个主菜单,首先要建立()对象。
(判断题)
在一个项目中可以有一个以上的主窗体(Main form)。
(填空题)
使用窗体的()方法可以将一个窗体作为一个模式窗体(modal form)来打开。
(填空题)
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示: 主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1(打开文件)、Button2(播放)、Button3(暂停)、Button4(退出)。 子窗体Form2上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。 单击“打开文件”按钮,会弹出打开文件对话框。用户指定一个要播放的文件后,单击“播放”按钮可播放多媒体文件,单击“暂停”按钮可暂停播放。 单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。 下面是Unit1的代码部分,请在下划线处完成程序填空。