時計ソフトが終了してしまう (ID:7497)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 外しているかもしれませんが procedure TForm1.Timer1Timer(Sender: TObject); begin ViewTokei() // 時計描画処理 end; というようにタイマー内で時間のかかる処理がありませんか？ 以前このような処理のとき何故かアプリケーションがエラーも 無く終了した経験があります。 対処方法としては procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; ViewTokei() // 時計描画処理 Timer1.Enabled := True; end; とタイマー内で再度イベントが発生しないように止めるようにしています。