Die einfachste Lösung ist, im OnFocusChanging Allowed auf false zu setzen, wenn dieser Knoten nicht ausgewählt werden darf.
OT:
Ganz gemein:
Delphi-Quellcode:
procedure TForm3.VirtualStringTree1FocusChanging(Sender: TBaseVirtualTree;
OldNode, NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
var Allowed: Boolean);
begin
Allowed := Random(2) = 1;
end;