TreeView springen verhindern

[RWarnecke]

In OnChange Ereignis vom TreeView :

Delphi-Quellcode:

var
  aNode : TTreeNode;
begin
  aNode := TreeView1.Selected;
  // Änderungen die durchgeführt werden sollen
  TreeView1.Selected := aNode;
end;

Ungetestet getippt.