掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ProgressBarの表示が止まってしまう。 (ID:27170)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
繰り返し処理の中でProgressBarを使って進捗を表示したいと思っています。 下記のコードをコンパイルして実行すると、ProgressBarは、途中までは スムーズに進むのですが、途中で止まってしまい暫くすると、急に PosisionがMaxになり処理が完了します。 しかも、繰り返し処理の前にある'Label1.Caption:='Strat!';'を無くすと スムーズに進みます。 試しにStatusBarで試してみましたが、こちらもスムーズに進みます。 さらにこの現象は、コンパイル済みのexeファイルでのみ発生します。 Delphiから実行したスムーズです。 PC環境に依存している様な感じがするのですが、どの環境でもProgressBarが スムーズに動く様にするには、どの様にしたら良いのでしょうか？ ご教授願います。 ちなみに開発環境は、D6、winXPです。 procedure TForm1.Button1Click(Sender: TObject); var i:Integer; const M=300000; begin ProgressBar1.Position:=0; ProgressBar1.Max:=M; Label1.Caption:='Strat!'; StatusBar1.SimpleText:='Strat!';{※こっちだけなら大丈夫} for i:=0 to M do begin ProgressBar1.Position:=ProgressBar1.Position+1; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.