设置虚拟树列表节点的标题

Question

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

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;

我该怎么做？我不能像这样重新宣誓。当我双击树列表OnGetTextEvent时，它会向我抛出一些异常“属性和方法不兼容”

Answer 1

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

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

Answer 2

我的项目出了问题。我不知道是什么，因为我已经重新创造了它。现在GetText事件正常工作。我上面的代码可以使用。