如何在Delphi XE2功能区控件中找到按钮的顶部和左侧？

Question

我正在开发的项目有一个演示模式，通过将带有setcursorpos的鼠标移动到不同的控件来向用户显示一些功能。 setcursorpos函数需要控件的位置。如何在功能区控件中找到这些选项卡和按钮？

Answer 1

AFAIK SetCursorPos需要鼠标位置的屏幕相关坐标。假设目标控件名为Button1，您将获得左上角的屏幕坐标Button1.ClientOrigin;

更新：虽然没有直接询问，但可能不清楚如何获取代表按钮的控件实例。让我从XE2 samples文件夹中获取RibbonDemo。剪贴板部分的删除按钮（索引3）可以通过rgHomeClipboard.ActionControls [3]访问;