Problemas con el TreeView y el ListView

[quake2420]

He puesto el codigo como tu me has dicho y no me funciona.
¿Puede ser por que el procedimiento Deleteclick sea un item de un objeto menu y por eso no me diferencia si yo donde estoy es en el treeview o en el listview
SAludos

[dec]

Hola,

Empezado por quake2420

¿Puede ser por que el procedimiento Deleteclick sea un item de un objeto menu y por eso no me diferencia si yo donde estoy es en el treeview o en el listview?

Justamente. Te será imposible averiguar que el "Sender" del método es un "TTreeView" o un "TListView" si al método se llega a través de un "TMenuItem"... ¿No puedes crear un método que pudiera utilizarse tanto en el "TListView", en el "TTreeView" y hasta en el "TMenuItem"? Lo digo un tanto a la ligera, pero, que sepas que no te funciona por lo dicho: compruébalo mirando que el "Sender" es un "TMenuItem", verás como en tu caso (ahora mismo) todo irá como se espera.

[yusnerqui]

Regresando a la pregunta original, puedes comprobar el componente que tiene el foco en estos momentos a través de la propiedad Focused del mismo. Con esto al dar clic en el menuitem sabrás si estás posicionado en el TTreeView o en el TListView

Código Delphi [-]
 if TreeView1.Focused then
   BorraEnTreeView
 else if ListView1.Focused then
      BorraEnListView
    else
      ShowMessage('No hay nada seleccionado');

Espero te ayude

Saludos.

[quake2420]

Gracias yusnerqui, como dices tú en tu ultima respuesta me funciona perfectamente.
Muchas gracias!!!!!!
Saludos