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

You don't mention the Delphi and VirtualTreeview version but I guess thats because of the CellText: WideString parameter - it should be of string type now after the UnicodeString became the default string type in Delphi. IOW change it to

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

Answer 2

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