在窗體上畫一個標(biāo)簽(名稱為Label1)和一個時鐘組件(名稱為Timer1),添加2個按鈕“開始”(Button1)和“停止”(Button2)。程序運行后,單擊窗體“開始”按鈕,時鐘組件啟動,并開始在標(biāo)簽中更新顯示當(dāng)前時間,每隔1秒鐘變換一次,按停止按鈕停止計時。(見圖)。請?zhí)羁?#65377;
然后編寫如下幾個事件過程: 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;
最新試題
當(dāng)Query 對象中存儲一條Update 語句時,我們執(zhí)行該語句需要調(diào)用Query 的()方法。
建立一個ADOTable對象的步驟是下列哪些選項()。
Delphi 所提供的集成開發(fā)環(huán)境可以為軟件開發(fā)人員提供什么樣的開發(fā)環(huán)境?
進度顯示組件ProgressBar 的用途是什么?
若要結(jié)束當(dāng)前工作并退出Delphi 開發(fā)環(huán)境,可執(zhí)行()命令。