Ver Mensaje Individual
  #2  
Antiguo 08-05-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
el TTreeview tiene este método:
Código Delphi [-]
function GetNodeAt(X, Y: Integer): TTreeNode;

Supongo que en el evento OndragOver puedes hacer uso de este método para averiguar donde se está arrastrando.

AVISO: Si no hay nodo debajo del raton devolverá nil. Ejemplo de uso:
Código Delphi [-]
var p : TTreenode
begin

p := ttreview1.getnodeat (x,y) ;
if p <>nil then
  // insertar nodo como hijo o como "Silbing"
else
 accept := false;

Este código iria en el Evento OndragOver del treview que recibe el nodo, así no aceptará el nodo si lo suelta en cualquier sitio. Siempre puedes acotar donde ha de soltar el nodo colocando Accept a false en el momento adecuado.

Saludos;

Última edición por Lepe fecha: 08-05-2004 a las 09:34:59.
Responder Con Cita