VirtualTreeView, no image list was supplied

[Aviator]

Du musst der Komponente auch eine ImageList zuweisen aus der du die Images laden möchtest. Entweder per OI oder per Code vrdbtProjNr.ImageList := ImageList1; . Natürlich angepasst an deinen ImageList Komponenten Namen.

Zusätzlich solltest du auch noch den ImageKind abfragen. Du kannst je nach Status der Node einen anderen ImageIndex übergeben. Also in etwa so:

Delphi-Quellcode:

procedure Tfo1ProjNr.vrdbtProjNrGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: TImageIndex);
var
  Data: PTreeData;
begin
  Data := Sender.GetNodeData(Node);
  if (Kind <> ikSelected) then begin   // Das solltest du noch einfügen, da du ansonsten die Meldung nochmal bekommst. Nur mit der Meldung "An Image Index was supplied for TTVImagekind.ikSelected but no image list was supplied"
    // Hier dann deine Images zuweisen
  end;
end;

Alternativ zu der Abfrage kannst du der Property SelectedImages auch die gleiche ImageList nochmal zuweisen.