掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Application.ProcessMessages を入れてもアプリを終了できない (ID:149656)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になっています。 時間のかかる処理で、途中に Application.ProcessMessages を入れて 任意のタイミングでアプリを終了できるようにしたいのですが、 終了させることが出来ませんでした。 上記を簡単化したコードが以下となります。 procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := 0; while True do begin sleep(1000); // 時間のかかる処理 Application.ProcessMessages; Memo1.Lines.Add(i.ToString); i := i + 1; end; end; 上記のプログラムの Button1Click を実行した後に 画面右上のバッテンを押してアプリの終了を試みたのですが 終了しませんでした。 画面右上のバッテンで終了させる方法は無いでしょうか? こちらの環境は以下となります。 ・Windows 10 Pro バージョン 2004 ・Delphi 10.3 Update 3 よろしくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.