掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
[D7]TActionManagerとPopupMenu(Standard/XP Style) (ID：9394)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ColorMapの指定だけでOKでした。 ちなみにこんな感じです。 第１引数にActionManagerオブジェクト。 第２引数に、ActionClientオブジェクト。 # ActMan.ActionBars[0].Items[0]など できたTCustomActionPopupMenuは、TPopupMenuと同じようにPopupメソッドで表示。 使用し終えたら破棄。 function TAppMenu.CreatePopupMenu(A: TActionManager; ActionClient: TActionClient): TCustomActionPopupMenu; begin if A.Style.GetStyleName = 'Standard' then begin Result := TStandardMenuPopup.Create(A.ActionBars[0].ActionBar); end else begin Result := TXPStylePopupMenu.Create(A.ActionBars[0].ActionBar); end; Result.ColorMap := A.ActionBars[0].ActionBar.ColorMap; Result.ActionClient := ActionClient; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.