掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
XPスタイルにするとステータスバーが動作しません (ID：26289)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
新規プロジェクトで、 ・TStatusBar, TXPManifestをフォームに追加 ・ヒント表示テスト用にTButton、TApplicationEventsも追加 // ヒント表示 procedure TForm1.ApplicationEvents1Hint(Sender: TObject); begin with StatusBar1 do begin if SimplePanel then SimpleText := Application.Hint else Panels[0].Text := Application.Hint; end; end; // OnCreate procedure TForm1.FormCreate(Sender: TObject); begin Button1.Hint := '短いヒント|長いヒント'; StatusBar1.SimplePanel := True; end; このようなコードを書き、StatusBar1のSimplePanel プロパティがtrue, falseのとき、 いずれもXPスタイル適用して、正しくヒント表示するのを確認しました。 (BDS2006) >ステータスバーが動作しません >ステータスバーが使えなくなります とは、どのように動作しないのですか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.