我正在仿效(尽可能)TPopup菜单,以便它可以浮动,用户可以拖动它.
为此,它采用自己的形式,并使用TPanels,就好像它们是可点击的TMenuItems一样.
我正在使用TPanels,所以我可以改变它们的颜色.
为了获得正确的颜色,我如何在运行时(在Delphi 2010中)确定TMenuItem.Color和TMenuItem.Font.Color的当前主题颜色(假设存在这样的属性).
TIA
编辑
我可以使用clBtnFace作为背景,使用clWindowText作为文本颜色.但是,我需要知道鼠标在菜单选择上的主题颜色.