TVirtualStringTree：如何获取编辑的文本？

Question

我正在编辑TVirtualStringTree中显示节点的第二列。但是，编辑完成后，我无法使用Sender.GetNodeData（Node）检索文本 - 它不包含文本。

如何获取OnEdited事件中的文本？有没有其他的方式来获得编辑的文本？我已经阅读了Virtual Treeview CHM帮助文档的前几个常见问题解答页面，并且还提到了in this SO question的答案，但找不到答案。

这里是本次代码：

TTherapData = record 
    TherapID: Integer; 
    TherapName: String[120]; 
    TherapInstr: String[120]; 
    Selected: Byte; 
    end; 

    PTherapData = ^TTherapData; 

procedure TfmPatient_Conslt.vstRxList_AsgEdited(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex); 
var 
    TherapData: PTherapData; 
begin 
    TherapData := Sender.GetNodeData(Node); 
    if Assigned(TherapData) then 
    begin 
    TherapData^.TherapInstr := vstRxList_Asg.Text[Node, 1]; 
    showmessage(TherapData^.TherapInstr); 
    end; 

    FTherapDataListAsg_Iter := 0; 
    vstRxList_Asg.NodeDataSize := SizeOf(TTherapData); 
    vstRxList_Asg.RootNodeCount := 0; 
    vstRxList_Asg.RootNodeCount := TherapDataList_CountSelectedItems; 

end; 

Answer 1

感谢来自TLama暗示，答案是处理OnNewText事件：

procedure TfmPatient_Conslt.vstRxList_AsgNewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; 
    NewText: string); 
var 
    TherapData: PTherapData; 
begin 

    if (Column = 1) then 
    begin 
    TherapData := Sender.GetNodeData(Node); 
    if Assigned(TherapData) then 
     TherapData^.TherapInstr := NewText; 
    end; 

end;