为虚拟树列表节点设置标题
我无法理解文档中描述的过程。 它说使用事件：
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它会引发一些异常在我“属性和方法不兼容”
你没有提到Delphi和VirtualTreeview的版本，但我想这是因为CellText: WideString参数 - 在UnicodeString成为默认的Delphi string类型之后，它现在应该是string类型。 IOW将其更改为
procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: Integer; TextType: TVSTTextType; var CellText: string);
我的项目出了问题。 我不确定是什么，因为我重新创建了它。 现在GetText事件正常工作。 我的代码上面的作品。
链接地址: http://www.djcxy.com/p/35015.html