掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームを最小化したときにループ処理を休ませるには？ (ID：31660)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
tttさんの助言に従い、予めisMinimizedというBooleanを定義して、 procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin (CPU使用率100%のループ処理が入ります) //アプリケーションが非アクティブになったらスリープ if (Application.Active = False) then Sleep(1); //フォームを最小化したらスリープ if (isMinimized = True) then Sleep(1); end; procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin isMinimized:=True; end; procedure TForm1.ApplicationEvents1Restore(Sender: TObject); begin isMinimized:=False; end; と記述して実行したところ、無事最小化したときスリープが入るようになりました。 助言してくださったtttさん、igyさん、ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.