sorry habe leider vst und treeview komponenten gemischt....
so sollte es funktionieren....
Delphi-Quellcode:
procedure TForm1.vstGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
begin
case kind of
ikstate: ImageIndex:=-1;
iknormal: ImageIndex:=0;
ikselected: ImageIndex:=1;
end;
end;