[alex_p8]

Empezado por Crandel

Gracias por la idea roman,

termine escribiendo

Código Delphi [-]
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TreeView1.Select(TreeView1.GetNodeAt(X, Y));
end;

y funcionó perfecto

Acabo de probarlo y para refinarlo y no se salga una excepción cuando se
pincha en otra parte del treeView que no corresponde con nigún item he puesto esto:

Código Delphi [-]
if (TreeView1.GetNodeAt(X, Y) <> nil) then
      TreeView1.Select(TreeView1.GetNodeAt(X, Y));

Que por otra parte es exactamente lo que escribió Román (Me acabo de dar cuenta, lo siento)
Un saludo