TPopupMenu dinámico

[walrus]

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]

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]]

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]

Empezado por Lepe

Se podría crear un solo popup

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

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

// Saludos

[walrus]

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]]

Empezado por roman

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

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