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;