在窗体上画一个标签（名称为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;
相关推荐
-
1、（ 23 ）某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为
（ 23 ）某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Lab的属性设置为 Enabled=True, Interval=0, 并编程如下。希望在每 2 秒在标签上显示一次系统当前...
-
2、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、L
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()Static...
-
3、某人在窗体上画了一个名称为Timer1的计时器和一个名称为Labe11的标签
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Labe11的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次...
-
4、在窗体上画一个名称为Listl的列表框，一个名称为Label1的标签。列表框
在窗体上画一个名称为Listl的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述...
-
5、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、L
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()x = 5: y =...
-
6、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标
在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程： Private Sub Command1_Click()s = 0For i = 0 To 15X = 2 * i - ...