为虚拟树列表节点设置标题答案

【问题标题】：Setting caption for Virtual Tree List nodes为虚拟树列表节点设置标题
【发布时间】：2012-03-02 14:50:27
【问题描述】：

我无法理解文档中描述的过程。它说使用事件：

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
                Column: Integer; TextType: TVSTTextType; var CellText: WideString);
var
    Data: PTreeData;
begin
   Data:=VST.GetNodeData(Node);
   CellText := Data^.FCaption;
end;

我该怎么做？我不能就这样重新声明它。当我双击 Tree List OnGetTextEvent 时，它会向我抛出一些异常“属性和方法不兼容”

【问题讨论】：

请告诉我们确切的信息。不要让我们猜测。
好吧，如果我没记错的话，调用 GetText 来绘制节点。但是您说双击时会出现异常。你的 DobleClick 事件有一些代码吗？

标签： delphi virtualtreeview

【解决方案1】：

您没有提到 Delphi 和 VirtualTreeview 版本，但我猜那是因为 CellText: WideString 参数 - 在 UnicodeString 成为 Delphi 中的默认字符串类型之后，它现在应该是 string 类型。 IOW 将其更改为

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
          Column: Integer; TextType: TVSTTextType; var CellText: string);

【讨论】：

将其更改为字符串不会改变任何内容。我使用 Delphi 2009 和 Virtual Tree List 4.8.7

【解决方案2】：

我的项目出了点问题。我不确定是什么，因为我重新创建了它。现在 GetText 事件可以正常工作。我上面的代码有效。

【讨论】：