填空題
在窗體上畫一個(gè)標(biāo)簽(名稱為Label1)和一個(gè)時(shí)鐘組件(名稱為Timer1),添加2個(gè)按鈕“開始”(Button1)和“停止”(Button2)。程序運(yùn)行后,單擊窗體“開始”按鈕,時(shí)鐘組件啟動(dòng),并開始在標(biāo)簽中更新顯示當(dāng)前時(shí)間,每隔1秒鐘變換一次,按停止按鈕停止計(jì)時(shí)。(見圖)。請(qǐng)?zhí)羁?#65377;
然后編寫如下幾個(gè)事件過程:
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;