掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームを最小化したときにループ処理を休ませるには？ (ID：31656)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ApplicationEventsコンポーネントを使って、 procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin (CPU使用率100%のループ処理が入ります) //アプリケーションが非アクティブになったらスリープ if (Application.Active = False) then Sleep(1); //フォームを最小化したらスリープ if (Form1.WindowState = wsMinimized) then Sleep(1); end; と記述して実行してみたところ、非アクティブ状態ではCPU使用率が 5%程度になるのですが、フォームを最小化してもCPU使用率が100%の ままであり、スリープしていないようです。 最小化時にスリープをはさむことは可能でしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.