delphi - 如何确定 Windows 主题 TColors

Question

我正在模拟(尽可能)一个 TPopup 菜单，以便它可以 float 并且用户可以拖动它。

为此，它采用自己的形式，并使用 TPanel 充当可点击的 TMenuItem。

我正在使用 TPanels，所以我可以改变它们的颜色。

为了获得正确的颜色，我如何在运行时(在 Delphi 2010 中)确定 TMenuItem.Color 和 TMenuItem.Font.Color 的当前主题颜色(假设存在此类属性)。

TIA

编辑

我可以使用 clBtnFace 作为背景，使用 clWindowText 作为文本颜色。但是，我需要知道鼠标悬停在菜单选择上时的主题颜色。

Answer 1

看看我对 How can I get the color for a themed tabsheet 的回答- 尤其是编辑。

相关常量可在 Parts and States 下找到.只需在该页面上搜索“菜单”即可。

编辑:有一些工具可以直观地探索主题 - 请参阅 Windows Visual Themes: Gallery of Parts and States? . (感谢@TOndrej 提出这个问题。)