Ｌａｚａｒｕｓでタイマーを使ってみた

未分類

Ｌａｚａｒｕｓでタイマーを使ってみた

一定時間ごとに起動する仕組みを作ってみる

参考
http://www.w-frontier.com/delphi/2_timer.html

ポイント
Timer1.Enabled := True ;
　とすると、タイマーが起動される
timer1.Interval:=2000;　//２秒間隔
　インターバル（間隔）の設定ができる　　
時間になると
　TForm1.Timer1Timer
　が起動する

プログラム

変数設定

 private
    cu:integer;

プログラム本体

procedure TForm1.Button1Click(Sender: TObject);
begin
  cu:=0;
   if Button1.Caption = 'Start' then
begin
 Button1.Caption := 'Stop' ;
 Timer1.Enabled := True ;
end else
begin
 Button1.Caption := 'Start' ;
 Timer1.Enabled := False ;
 end ;
end ;

procedure TForm1.FormCreate(Sender: TObject);
begin
  button1.caption:='Start';
  timer1.Enabled:=False;
  timer1.Interval:=2000;
  edit1.Text:='0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 cu:=cu+1;
 edit1.Text:=IntToStr(cu);
end;