填空题
在窗体上画一个标签（名称为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;
微信扫一扫关注公众号后联系客服
微信扫码免费搜题
