時計ソフトが終了してしまう

ヘリーナ 2004-03-02 16:56:12 No: 7495

時計ソフトを作ったのですが、15分くらいすると
止まってしまいます。エラーではないようなのですが、
何か時間に関する設定項目があるのでしょうか。
TTimerを使って毎秒書き換えているだけなのですが。
考えられる原因を思いつきません。

皆さんならどんな原因が疑わしいと思いますか？
よろしくお願いします。

るるとん＠K 2004-03-02 17:01:57 No: 7496

TTimer(Interval=1000)で分の値をIncして、分の値が60なら分の値を0にし時の値をInc〜♪というような作りなら、終了しないと思います。
どんな仕組みなんですか？

take 2004-03-03 09:02:58 No: 7497

外しているかもしれませんが

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ViewTokei()   // 時計描画処理
end;

というようにタイマー内で時間のかかる処理がありませんか？
以前このような処理のとき何故かアプリケーションがエラーも
無く終了した経験があります。
対処方法としては

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ViewTokei()   // 時計描画処理
  Timer1.Enabled := True;
end;

とタイマー内で再度イベントが発生しないように止めるようにしています。

ヘリーナ 2004-03-03 11:13:37 No: 7498

みなさん、レスありがとうございます。
takeさんの方法ためしてみます。