Lazarus (Delphi/FPC)：类助手中的构造函数未执行

Question

我正在尝试找到一个通用** 解决方案，通过某些功能（例如每个节点的工具提示）来扩展内置 Treeview/TreeNode。所以首先我派生了一个TExtendedTreeNode = class(TTreeNode) 并添加了一个似乎工作正常的相应属性 - 我可以为每个节点添加具有不同工具提示的 TExtendedTreeNodes。

对于下一步，我想使用 TTreeView.OnMouseMove 事件来显示相应的 ToolTip，但是以通用**方式扩展此功能的最佳解决方案是什么？

我的想法是使用class helper for TTreeView：

type
  TTreeViewExtension = class helper for TTreeView
  private
    procedure ShowNodeToolTips(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  public
    constructor Create(AnOwner: TComponent);
  end;

...

constructor TTreeViewExtension.Create(AnOwner: TComponent);

begin
  inherited Create(AnOwner);

  ShowMessage('TTreeViewExtension.Create');

  self.OnMouseMove := @self.ShowNodeToolTips;
end;

代码编译时没有警告或错误，但在我的表单中创建树视图时不会执行此构造函数。

是的，我在表单单元和扩展单元中都使用了advancedrecords in objfpc mode - 为了使用类助手：

{$mode objfpc}{$H+}
{$modeswitch advancedrecords+}

** “通用”的意思是，我想至少将 Lazarus IDE 中的集成控件用于 TreeView 控件，但使用扩展功能而无需编写两次代码。

Answer 1

您为什么不使用已经可用的OnHint 事件来显示这些工具提示。 TTreeView.OnHint 事件已经返回对鼠标光标下方树节点的引用，因此从节点读取自定义提示（工具提示）应该没有任何问题。

如果提示可以在一行文本中显示，您只需更改此事件方法中公开的Hint 变量的值。

您可以通过将事件方法返回的Node 常量类型转换为TExtendedTreeNode 类来轻松地从Extended TreeNode 中读取此类值。 不要忘记检查有问题的节点是否确实属于正确的类。

procedure TForm1.TreeView1Hint(Sender: TObject; const Node: TTreeNode;
  var Hint: string);
begin
  //Check to see if the node beneath the cursor is the extended node
  if Node is TExtendedTreeNode then
    //if it is change the hint text to the custom hint stored in the
    //node itself
    Hint := TExtendedTreeNode(Node).CustomHint
  //Else change the hint to empty string so no hintbox will be shown
  else Hint := '';
end;

如果您不希望显示任何提示文本并以不同的方式显示您的信息，您只需将 Hint 值设置为空字符串。

procedure TForm1.TreeView1Hint(Sender: TObject; const Node: TTreeNode;
  var Hint: string);
begin
  //Set Hint to empty string in order to not show any hint box
  Hint := '';
  //Do some other code instead if you like
  MessageBeep(0);
end;