Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   TPopupMenu dinámico (https://www.clubdelphi.com/foros/showthread.php?t=15753)

walrus 04-11-2004 00:31:57

TPopupMenu dinámico
 
Hola. Quisiera saber la mejor manera de crear menús contextuales en un TreeView. Me explico:

Tengo un TreeView de 4 niveles. En cada nivel del árbol tengo que mostrar un menú popup diferente. En cada menú habrán operaciones propias del nivel del nodo seleccionado y comunes a todas las instancias de menú. ¿Cual es la mejor manera de hacerlo? ¿Creo en tiempo de diseño los 4 menus o mejor lo hago en tiempo de ejecución? ¿Qué evento es más apropiado?



Gracias por vuestro tiempo y vuestra atención.

Saludos.

roman 04-11-2004 04:42:04

Si los elementos de los menús son conocidos de antemano para cada nivel no veo ventaja alguna en crearlos dinámicamente.

Para activarlos puedes usar el evento OnMouseDown u OnMouseUp verificando que el parámetro Button sea igual a mbRight. Usa el método GetNodeAt del TreeView pasándole los parámetros X e Y del evento para determinar en qué nodo se hizo el click. Verifica que el nodo devuelto sea distinto de nil (es decir que realmente se hizo click sobre un nodo) y examina la propiedad Level del nodo para saber en qué nivel está y qué menú desplegar.

// Saludos

Lepe 04-11-2004 11:12:41

Se podría crear un solo popup, y siguiendo el ejemplo de Roman, al tiempo de mostrarlo poner Visible a false de cada MenuItem que no se quiera ver.

No lo he hecho nunca, puede que funcione.

Yo normalmente uso el evento del Popup (OnPopup) para inhabilitar opciones.

PD: Creo que el popup tiene una opcion de AutoReduction Line, para que no se vean dos lineas separadoras consecutivas.

Saludos

roman 04-11-2004 15:19:16

Cita:

Empezado por Lepe
Se podría crear un solo popup

¿Por qué? ¿Hay escasez de menús? :D

Creo que es complicarse la vida. Si los nodos son de naturaleza distinta ¿para qué complicarse con uno solo?

// Saludos

walrus 04-11-2004 20:34:06

Gracias^2
 
Muchas gracias por contestar. Me han sido de gran utilidad vuestros sabios consejos. Finalmente, he creado 4 PopupMenus diferentes y como uso TActions no creo que se desperdicie demasiada memoria por ello y evito escribir código.

Gracias de nuevo.

Lepe 05-11-2004 14:10:25

Cita:

Empezado por roman
¿Por qué? ¿Hay escasez de menús? :D

:D :D

Esto es nuevo: El mensaje que ha introducido es demasiado corto. Por favor, introdúzcalo de al menos 10 caracteres


La franja horaria es GMT +2. Ahora son las 11:55:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi