delphi - TCheckListBox 项目的独特提示？

Question

当用户将鼠标向下移动到 TCheckListBox 中的项目列表时，如何显示特定于鼠标下的项目的提示？

在德尔福 2010 中。

汤姆

Answer 1

我执行此操作的方法是利用 TApplication.OnShowHint 事件。这允许您自定义 HintStr 参数，并且您可以根据 HintInfo 参数中包含的位置来执行此操作。

正如 Remy 在评论中指出的那样，您还可以处理 CM_HINTSHOW 来实现相同的效果，如果您已经子类化了标准 VCL 控件，则在某些方面可以更清晰地实现。

我已经实现了一个基于接口(interface)的框架，以便在我的应用程序中使用它。基本上在TApplication.OnShowHint中，HintInfo.HintControl会被询问是否支持这个接口(interface)。如果是这样，则有机会自定义提示文本。它工作得很漂亮。

基于原始 MouseMove 事件的提示工作得很好，但在每个 MouseMove 事件上调用 ItemAtPos 而不是等到实际显示提示的时候似乎有点浪费。这就是为什么我稍微偏爱上述方法。