掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時間のかかる処理を行う際、進捗を表示させているModalダイアログの右上の×ボタンを押したときに処理を中断する方法 (ID:150182)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> // 時間のかかる処理のループ内あるいはールバック関数内でこの値をチェックする こんな感じですね. このコードのテストには uses に MMSystem が必要です. procedure TForm2.FormActivate(Sender: TObject); var TimeStart : Cardinal; begin TimeStart := timeGetTime; while True do begin if FCancel or ((timeGetTime - TimeStart) >= 20000) then break; Application.ProcessMessages; Sleep(1); end; PostMessage(Handle, WM_CLOSE, 0, 0); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.