ステータスバーの表示を数秒後に消すには？ (ID:44444)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 DEKOさん、それは裏技中の裏技では…難し過ぎます。 無名メソッドならTimerを使うのをやめて、こちらの方法じゃないでしょうか。 DelphiのTThread.CreateAnonymousThreadと無名メソッドを使うと、簡単なスレッド処理なら手軽にかける - 山本隆の開発日誌 http://www.gesource.jp/weblog/?p=5093 というか、普通にTimerを使うのが一番簡単だと思いますよ ＞arigayasさん 関数とイベントハンドラで2個に分離してしまいますが。 ※オブジェクトインスペクタでTimer1のEnabledをFalse、OnTimerをTimer1Timer、お忘れなく。 procedure TForm1.Button1Click(Sender: TObject); begin StatusBar1.SimpleText :='完了しました'; StatusBarClear(3); end; procedure TForm1.StatusBarClear(i: Integer); // iは終了するまでの秒数 begin Timer1.Interval := i * 1000; Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; StatusBar1.SimpleText :=''; end;