掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ステータスバーの表示を数秒後に消すには？ (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.