Delphi VirtualStringTree OnGetHint

Question

我想在单元格文本已完全显示时显示提示。
所以，在表单的 OnCreate 上

procedure TForm1.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.HintMode := hmHint;
  VirtualStringTree1.ShowHint := True;
end;

和 OnGetHint

procedure TForm1.VirtualStringTree1GetHint(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex;
  var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
begin
  HintText := IntToStr(Node.Index);
end;

但什么也没发生。

OnGetHint 事件处理程序未触发，甚至 TBaseVirtualTree.CMHintShow 断点也不起作用。

我该怎么办？

我使用的是delphi xe3，virtualtreeview 5.2.1。

<小时/>

感谢您的回答。

我遵循了你的指导。

应用程序属性

• ShowHint := True//我检查过，但在 OnCreate 上显式设置为 true

Vst 属性

• 提示，例如'整个 VST 的提示'//是的，添加无意义的提示
• 提示动画，例如帽子无
• 提示模式，例如hmHintAndDefault//如您所见，在 OnCreate 上
• ShowHint, True//如您所见，在 OnCreate 上
• ParentShowHint，根据需要，如果您不知道，请使用 False//是

要实现的 Vst 事件

• OnDrawHint()//是
• OnGetHint()//是
• OnGetHintSize()//是

但没有任何改变。
OnGetHint、OnGetHintSize、OnDrawHint 根本不会被触发。
(当 HintMode 设置为 hmToolTip 并且文本未完全显示时，仅触发 OnGetHint)

是的，我阅读了该文档VirtualTreeView.pdf。
但有关事件的所有描述与您的报价完全相同。
我需要更多解释。

<小时/>

更新:

非常奇怪的事情。
我已经测试过其他电脑。

我的电脑Windows 10xe3vst 5.2.1

• 不工作

电脑1Windows 10xe3vst 5.2.1

• 编译并执行//工作
• 在我的电脑上编译，复制并执行//工作

电脑2 Windows 10

• 在我的电脑上编译，复制并执行//工作

什么？？？
代码不是问题。
我不知道为什么，甚至不知道从哪里开始。

无论如何，我真的很感谢您的回答并接受它。
如果有人知道这个奇怪的事情，请告诉我。
如果我发现了，我会更新。

Answer 1

必须就位/实现多个属性和事件处理程序才能显示节点特定的提示。以下内容应该可以帮助您入门:

应用程序属性

• ShowHint := True

Vst 属性

• 提示，例如'整个 VST 的提示'
• 提示动画，例如帽子无
• 提示模式，例如hmHintAndDefault
• ShowHint，True
• ParentShowHint，根据需要，如果您不知道，则使用 False

要实现的 Vst 事件

• OnDrawHint()
• OnGetHint()
• OnGetHintSize()

来自文档:

Use an event handler for OnDrawHint() to draw the hint or tooltip for the given node. You must implement this event and OnGetHintSize() to get a hint at all.

在网上查找 VirtualTreeView.pdf 文档