Vst Editieren

[DeddyH]

Sehe ich das richtig, dass das 5 Spalten sind? Dann könntest Du z.B. in einer case-Abfrage die Spalte ermitteln und die zugehörige Property ändern. Ungetestet:

Delphi-Quellcode:

procedure Tfrm_History.VstHistoryNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: string);
var
  History: THistory;
begin
    History:= THistory(VstHistory.GetNodeData(node)^ ); <--- editiert
    case Column of
      0: History.kd := NewText;
      1: History.txt := NewText;
      2: History.date := NewText;
      3: History.id := NewText; 
      4: History.bearbeiter:= NewText;
   end;  
end;