13

Delphi XE2 アプリケーションで vcl スタイルを使用していますが、TPopupmenu をポップアップすると、ネイティブ ウィンドウのルック アンド フィールを使用して表示されます。vcl スタイルの色を TPopUpMenu に適用する方法はありますか?

ここに画像の説明を入力

4

1 に答える 1

18

TPopupMenuをTPopupActionBarに置き換えるか、インターポーザークラスを使用してTPopupMenuをTPopupActionBarにキャストします。

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

また、これを読むことができますAdding VCL Styles support to a TPopupMenu in 2 lines of code

ここに画像の説明を入力してください

于 2012-04-15T20:19:33.667 に答える