掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
起動後直ぐに表紙画面を表示したい (ID：21899)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Timer1のEnabledはFalseにしておいて・・・ procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Interval := 10; Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; //ここにやりたいことを書く while True do begin ProgressBar1.Position := ProgressBar1.Position + 1; Application.ProcessMessages; sleep(10); if ProgressBar1.Position >= ProgressBar1.Max then Break; end; end; とやるのがお手軽です。 （いまいち気持ちのいいものではないですけど・・・）
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.