Treeview y click derecho
 

Hola a todos,

Tengo un TTreeView, con varios items, cuando hago doble click sobre un de los items ejecuto una determinada acción, cuya acción depende del item seleccionado que lo tomo con ListaDominios.Selected. Hasta aca todo bien.

Esta misma acción y otras, quiero permitirlas mediante un TPopupMenu, que se despliega al hacer click con el boton derecho.

El problema surge que ListaDominios.Selected no me devuelve realmente el item seleccionado, en realidad no sobre el que hice click.

Es decir, esta un item seleccionado, luego hago click derecho sobre otro, el primero permanece con una línea de trazo alrededor y el segundo en negrita.

El ListaDominios.Selected me devuelve el valor del primero y no sobre el que yo quiero.

tengo la propiedad RightClickSelect en true.

Alguna sugerencia?

Me parece que se trata de un error en la componente. Puedes solventarlo obteniendo el nodo correcto en el evento OnMouseDown del TreeView:

Código Delphi [-]
var
  Node: TTreeNode;

begin
  Node := TreeView1.GetNodetAt(X, Y);
  if Node <> nil then
    ...
end;

// Saludos

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