掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ProgressBarを使用して、時間の経過と共に減らしていくには…？ (ID：2170)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TimerもProgressBarも値を代入したり取得するだけで簡単にプログラム可能です 以下を参考にしてみて下さい。 procedure TForm1.FormCreate(Sender: TObject); begin //以下はデザイン時に設定可能 Timer1.Enabled:=false; //タイマー停止状態で開始 Timer1.Interval:=1000; ProgressBar1.Max:=30; ProgressBar1.Min:=0; end; procedure TForm1.Button1Click(Sender: TObject); begin Sec:=30; //初期化 ProgressBar1.Position:=30; Label1.Caption:='あと30秒'; Timer1.Enabled:=true; //タイマースタート end; procedure TForm1.Timer1Timer(Sender: TObject); begin dec(Sec); ProgressBar1.Position:=Sec; Label1.Caption:='あと'+inttostr(Sec)+'秒'; if Sec<1 then Timer1.Enabled:=false; //0になったら止める end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.