Click auf Treeview simulieren Fehler ?

[Delphiturbo]

Problem gelöst :

Delphi-Quellcode:

begin
...//

  If Assigned(Treeview1.selected) Then
begin
  TreeView1.SetFocus;
  TreeView1.OnClick(TreeView1);

end;
end;

mfg