Como hago un Menu desplegable dinamico?

[CamiloVI]

Hola gente que tal?

Tengo un dilema que me esta costando horas....
Tengo que hacer un menu desplegable dinamico, en el cual tiene que tener submenus etc... ya que consultara un par de tablas......

Hay alguna herramienta para poder tratar mi dilema o como lo puedo hacer?



Gracias.

[epuigdef]

Debes tener montado el componente TMainMenu y después añadir los elementos de la siguiente manera;

Código Delphi [-]
var a : TMenuItem;
begin
a := TMenuItem.Create(self);
a.Caption := 'dinamico';
a.OnClick := ....
MainMenu1.Items.Insert(0, a);

Edu

[CamiloVI]

Creo que en su dia intente algo semejante, pero no me funciono muy correctamente, de todas maneras probare con tu planteamiento.

[CamiloVI]

Lo que estoy intentando hacer es que segun clique en una determinada zona del formulario me mostrara x datos en forma de menu desplegable, el menu sera creado a partir de una select que me devolvera maestro y detalle.

Una vez desplegado el menu... donde clique en el mismo me devolvera unos datos.


Se complica la cosa.

[epuigdef]

No acabo de entender la problemática. Me puedes postear el código para var lo que ocurre y explicarlo más detalladamente?


Gracias

Edu

[CamiloVI]

intentare explicarme mejor.

Torax
*fractura de tal
*fractura de pascual
paralisis -> *Restriccion tipo i
*Restriccion TIpo II
*problema cardio bla bla
funcion respiratoria -> *Respiracion Tipo i
*Respiracion Tipo ii

Esto seria el popupMenu que agarraria los datos de una sentencia SQL
esta es la idea que llevo que los datos son de la BD y crea un popupMenu que se desplegara cuando clique en un sector de la form.
Con ello quiero decir que añadire tantos campos o submenus que quiera en la BD y el popup los mostrara tal cual esten en la BD.

Gracias.

[roman]

Empezado por CamiloVI

Esto seria el popupMenu que agarraria los datos de una sentencia SQL
esta es la idea que llevo que los datos son de la BD y crea un popupMenu que se desplegara cuando clique en un sector de la form.
Con ello quiero decir que añadire tantos campos o submenus que quiera en la BD y el popup los mostrara tal cual esten en la BD.

¿Y cuál es el problema? Pareces tener todo bien planteado. Supongo que ya sabes insertar items dinámicamente, de lo contrario lo haces como te dijo epuigdef aunque con un PopupMenu en lugar deun MainMenu.

Quizá tu duda sea cuándo insertar esos items. En tal caso puedes usar el evento OnPopup del PopupMenu que se ejecutará justo antes de desplegarse. Ahí es donde puedes consultar la base y con la información obtenida insertar los items adecuados.

// Saludos

[CamiloVI]

Tal vez estoy ya que no me llega el riego al cerebro.

Echarme una mano, el ejemplo que he puesto antes, podriais mandarme el codigo para crearlo de forma dinamica con su evento onClick...

Con eso me seria mas que suficiente. Recordar que tiene que ser popupMenu.

Gracias de antemano.

[*Caro*]

Hola, talvez este hilo te pueda ayudar

http://www.clubdelphi.com/foros/show...ight=popupmenu

[CamiloVI]

Pues mira que lo busque en el foro y no lo encontre.
Sino no hubiera dado la tabarra.



Gracias.