Rob*_*ank 1 delphi colors custom-controls delphi-2010
我正在仿效(尽可能)TPopup菜单,以便它可以浮动,用户可以拖动它.
为此,它采用自己的形式,并使用TPanels,就好像它们是可点击的TMenuItems一样.
我正在使用TPanels,所以我可以改变它们的颜色.
为了获得正确的颜色,我如何在运行时(在Delphi 2010中)确定TMenuItem.Color和TMenuItem.Font.Color的当前主题颜色(假设存在这样的属性).
TIA
编辑
我可以使用clBtnFace作为背景,使用clWindowText作为文本颜色.但是,我需要知道鼠标在菜单选择上的主题颜色.
看看我的回答如何获得主题标签页的颜色 - 尤其是编辑.
相关常数可在零件和状态下找到.只需在该页面上搜索"MENU"即可.
编辑:有可视化探索主题的工具 - 请参阅Windows Visual Themes:零件和状态图库?.(感谢@TOndrej提出这个问题.)