Ayuda conTReeView y PopupMenu

[*Caro*]

Hola, siguiendo las ideas de Neftali, me ha funcionado de esta forma, utilizando el evento OnContextPopup.

Código Delphi [-]
procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
 Nodo: TTreeNode;
begin
  Nodo := TreeView1.GetNodeAt(MousePos.X, MousePos.Y);
  if (Nodo <> nil) then
   begin
    TreeView1.Select(Nodo);
    if Not(Nodo.HasChildren) then
     TreeView1.PopupMenu := PopupMenu1
    else
     TreeView1.PopupMenu := Nil;    
   end;
end;

No debes asignar el popupmenu en diseño al TreeView.

Saluditos

[rruffino]

Hola y muchas gracias por las respuestas. He implementado esto ultimo y me funciona barbaro. Ahora, en el popup menu realizo una operación y esta no me toma el indice que esta seleccionado en el arbol, es decir, que cuando hago click derecho sobre un hijo me muestra el popupmenu pero cuando accedo a la operacion del popup no me toma el indice del arbol en donde estoy parado. Si primero hago click izquierdo y luego click derecho si me funciona al pelo, pero queria hacerlo solo con el derecho. Les agradezco si me tiran hilo de como hacerlo. Gracias!!!!

[*Caro*]

Empezado por rruffino

Ahora, en el popup menu realizo una operación y esta no me toma el indice que esta seleccionado en el arbol.......

Hola de nuevo, cambia esta linea:

Código Delphi [-]
    TreeView1.Select(Nodo);

por esta otra, para que te tome el indice correctamente

Código Delphi [-]
    TreeView1.Selected := Nodo;

Saluditos

[rruffino]

Perfecto Caro, funciona al pelo.
Agradezco las respuestas de todos.
Saludos!!