在窗体上画一个标签(名称为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;