填空题

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


您可能感兴趣的试卷