Настройка заголовка для узлов виртуального дерева

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; 

Как это сделать? Я не могу переопределить его именно так. Когда я дважды щелкните на списке Tree OnGetTextEvent это проливает исключение у меня «собственность и методы несовместимы»

Answer 1

С моим проектом что-то случилось. Я не уверен, что, потому что я его воссоздал. Теперь событие GetText работает правильно. Мой код выше работает.

Answer 2

Вы не говоря уже о Delphi и VirtualTreeview версии, но я предполагаю, то потому параметр CellText: WideString - оно должно быть string type теперь после того, как UnicodeString стал стандартным типом строки в Delphi. IOW изменить его на

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