掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ランタイムテーマ有効時のプログレスバー処理が遅い (ID:45572)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> これを必要最小限にすれば回避できると思います。 こんな感じですかね。 var I : Integer; st: cardinal; CurrentPosition, OldPosition: Integer; begin ProgressBar1.Position := 0; CurrentPosition := ProgressBar1.Position; OldPosition := ProgressBar1.Position; st := GetTickCount; for I := 1 to 100000 do begin CurrentPosition := Trunc(I / 100000 * 100); if OldPosition <> CurrentPosition then ProgressBar1.Position := CurrentPosition; OldPosition := ProgressBar1.Position; end; Caption := IntToStr(GetTickCount - st); end; ComCtrls.TProgressBar.SetPosition を書き換えたほうが手っ取り早いかもしれませんね。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.