掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
処理中にフォームの応答なしを回避するには？ (ID:43755)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Application.ProcessMessagesを使えば きっと応答無しにはならないでしょう 設計自体を改善すべきかと思いますが とりあえずこんな感じでいかがでしょうか？ for I := 1 to Parts.RecordCount do begin if PartsSUURYOU.Value then SaveToCSVFileAll(slCSV, sFileName, StartDate, Header); Parts.Next; Gauge1.ProGress := I; if I mod 100 = 0 then begin // 100回に1回だけ処理 Application.ProcessMessages(); // OSに処理を戻す end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.