TreeView question: How can i implement this? (need help!!!)

To use a virtual tree view you need to do a few things,

first declare a new type for holding data for the nodes asimple example would be

type

  PMyRec = ^TMyRec; // create a pointer for this type - very important
  TMyRec = record
    Caption: WideString; // add any othervaribles here, you probably only need a caption feild
  end;

then you need to set the nodedatasize for the treeview on create add something like
  treeview.NodeDataSize := SizeOf(TMyRec);


To set the caption of the node then use the treeview event OnGetText to set the caption something like

var
  Data: PMyRec;

begin
  Data := Sender.GetNodeData(Node);
  if Assigned(Data) then
    Text := Data.Caption;
end;

you could then set the caption or text depending on which customer it is

To add nodes make a function similar to this

function Addnode(Addtype: integer; Addernode: Pvirtualnode): Pvirtualnode;
Begin
   Addnode:= Addernode;
   with mytree do
   Begin

   Case addtype of
   0: // root
   Begin
      RootnodeCount:= RootnodeCount+1;
      Addnode:= Rootnode.LastChild;
   end;
   1: // child
   begin
      ChildCount[Addernode] := ChildCount[Addernode] + 1;
      Expanded[Addernode] := True;
      InvalidateToBottom(Addernode);
      Addnode:= Addernode.LastChild;
   end;
   2: // sibblin
   Begin
      Addernode:= Addernode.Parent;
      ChildCount[Addernode] := ChildCount[Addernode] + 1;
      Expanded[Addernode] := True;
      InvalidateToBottom(Addernode);
      Addnode:= Addernode.LastChild;
   end;
   end; //case

   end;  //with

end;

To access the data on a node use

var
  Data: PMyRec;

begin
  Data := mytree.GetNodeData(Node);

and then you can access it, I

 hope that that helps

DAvid