Schönen guten Abend,
ich habe mir die Kompo von Delphi Gems geholt und stehe nun vor dem Problem, das ich keien SubNode hingefügt bekomme.
Das heißt, ich weiß wie das per Btn anstelle aber ich hole mir die Daten aus einer
Query und trage die in einen Record. Nun stehen in der Abfrage aber noch weitere Daten diese möchte ich in die SubNode eintragen. So das es dann in etwa so aussieht.
|-Name
|--Name1
|--Name2
Über diesen Code trage schreibe ich die Daten in die ListView.
Delphi-Quellcode:
CustRec:= Sender.GetNodeData(Node);
Initialize(CustRec^);
CustRec.AVorname:= Query1.Fields[0].AsString;
CustRec.AName:= Query1.Fields[1].AsString;
CustRec.AVornameGF1:= Query1.Fields[2].AsString;
CUstRec.ANameGF1:= Query1.Fields[3].AsString;
if not Query1.Eof Then
Query1.Next;
end;
procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var CustRec: PCustRec;
begin
CustRec:= Sender.GetNodeData(Node);
If Column = 0 Then
CellText:= CustRec.AVorname;
IF Column = 1 Then
CellText:= CustRec.AName;
end;