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

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 变为之后，它现在应该是 string 类型Delphi 中默认的字符串类型。 IOW 将其更改为

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