Menús en tiempo de ejecución

[[Lepe]]

En el siguiente código, tengo un popupMenu ppPredef (PoPupPredefinidos ) y partiendo de cada línea de un TStringList (listPredef), se crea el menú:

Código Delphi [-]
var
  listPredef, NombreListado: TStringList;
  mnu, Seleccionar: TMenuItem;
  i: Integer;
begin
    ListPredef := TStringList.Create;
    ListPredef.Add('primera opción de menú');
    ListPredef.Add('segunda opción de menú');   
    if listPredef.Count > 0 then  // esto es un TStringList que guarda el caption que ha de poner en el popup menú
    begin
      for i := 0 to pred(listPredef.Count) do
      begin
        // mnu es el menuItem que vamos a añadir
        // ppPredef es el popupMenu

        mnu := TMenuItem.Create(ppPredef);
        ppPredef.Items.Add(mnu);
        mnu.Caption := listPredef[i]
        mnu.OnClick := CargarListadoPredefinido;
        mnu.Visible := True;
       // le añado la opción de RadioItem a cada menuItem
        // solo un TmenuItem activado a la vez
        mnu.AutoCheck  := True;
        mnu.GroupIndex := 0;
        mnu.RadioItem  := True;
      end;
     // esto crea un Separador (linea horizontal) en el popupmenu
      mnu := TMenuItem.Create(ppPredef);
      ppPredef.Items.Add(mnu);
      mnu.Caption := '-';
      mnu.Tag     := 1;

    end;
  end; // fin de predefinidos

procedure TFrmListadosC.CargarListadoPredefinido(Sender: TObject);
begin                                         //( el mnuitem   )

// cuando se haga clic en un elemento del menú, se ejecuta este procedimiento.

  if not (Sender as TMenuItem).IsLine then // si no es una linea separadora
  begin
    
    ShowMessage(TMenuItem(Sender).Caption);
    // con TMenuItem(Sender) puedes acceder a todas las propiedades del MenuItem

  end;
end;

PD: Yo no inserto en posiciones, porque el TStringList de los títulos lo tengo ordenado alfabéticamente y me interesa que aparezca en ese órden en el PopupMenu.

El truco está en crear un TmenuItem por cada ciclo : mnu := TmenuItem.Create(nombreDelPopup);
y despues añadirlo al menú: ppPredef.Items.Add(mnu);

Saludos

[quinqui]

Eeehhh! muchas gracias! ahora sí me ha funcionado! O____O jajaja salto de felicidad ^^UUU
ahora voy a investigar lo de las acciones que debe realizar cada menú ^^
gracias otra vez

[Mona]

Hola!!, me sucedió lo mismo que a quinqui, necesito implementar los menus en tiempo de ejecución, pero la verdad trate de ejecutar lo que dicen aquí, y no me funciona nada. Tengo una base de datos con todas las opciones, en la actualidad lo estoy haciendo bajo el esquema de arbol, pero debo pasarlo a menús y programar en el onclick de las opciones que se ejecute un aplicativo. Les agradezco la ayuda que me puedan brindar al respecto.

[[Lepe]]

La verdad es que "no funciona nada" no es muy concreto.

¿como lo guardas en la base de datos?, estructura de las tablas, campos, tipos de datos.

Pon un ejemplo con tus datos de la BBDD.

************** ignorar el siguiente comentario *****************************
Parece increible que yo tenga que insistir en pedir más información. Se supone que la interesada eres tú en obtener una respuesta

Edito: He añadido los asteriscos porque veo que es tu primer mensaje en los foros, por ende seré benévolo contigo, no te tomes ese comentario a mal; pero tenlo en cuenta en futuras ocasiones. En mi firma tienes un enlace donde puedes leer la guía de estilo en plan "Leyes de Murphy", es ameno, irónico y seguro que entenderás los principios del foro.

Bienvenid@ a ClubDelphi

Saludos

[Mona]

Mira Lepe, si entro al foro, no es para que me vaceen, con más delicadeza se pueden pedir las cosas, creo que no es necesario explicar a fondo cuales son los datos que manejo en la b.d.

Al entrar al foro, lei uno a uno las respuestas y preguntas, si tomo todo lo que dicen ahi y lo implemento en un nuevo proyecto, no sale nada, mi problema es muy simple, necesito crear menús dinámicos, leyendo de una b.d. necesito padres, hijos, hijos de hijos y así sucesivamente, cuando el usuario presiona click en algún hijo, se ejecutará algo, que en este caso es relevante. Ej de como se arma el menú: Tiene dos opciones principales:SEGURIDAD DEL SISTEMA y TRANSACCIONES, por la opción SEGURIDAD se encuentra los hijos: Grupo de Usuarios y Usuarios del Sistema, dentro de la opción Grupo de Usuarios, se puede escoger Cargue, Ajuste, Ensayos
SEGURIDAD DEL SISTEMA TRANSACCIONES
Grupo de Usuarios
Cargue
Ajuste
Ensayo
Usuarios del Sistema

Solo quiero un ejemplo que se pueda implementar y ajustar a las necesidades de cada usuario que lo vea. Mil gracias

[[Lepe]]

Empezado por Mona

Mira Lepe, si entro al foro, no es para que me vaceen, con más delicadeza se pueden pedir las cosas

Despues de enviar el Post, me di cuenta de que era tu primer mensaje, por eso edité el mensaje y le añadí los asteriscos, precisamente para que no te tomes a mal el comentario, quizás subido de tono, pero desde luego es una gran verdad.

Empezado por Mona

creo que no es necesario explicar a fondo cuales son los datos que manejo en la b.d.

No quiero los datos personales de tus clientes, sólo la forma en la que guardas los menúes, ni siquiera los nombres reales de cada usuario, pero necesito saber como diferencias los padres de los hijos en tu BBDD para poder armar el menú.

Empezado por Mona

Al entrar al foro, lei uno a uno las respuestas y preguntas, si tomo todo lo que dicen ahi y lo implemento en un nuevo proyecto, no sale nada,

El único proyecto totalmente funcional es el proporcionado por Neftali, el resto son trozos de código, tienes que entender qué hace y cómo lo hace, despues tienes que adaptarlo. Es más, te debería dar un "access violation" porque el StringList "ListPredef" no está creado; tampoco tiene elementos dentro, por tanto no debe crear ningún elemento de menú.

He editado el mensaje nº 13 de este hilo, ahora si creará 2 Menús:
- primera opcion de menú
- segunda opción de menú.

Crearlos como menú principal (Padre) o como elemento de menú (un hijo simple) es sólo cuestión de decirle quien es el Padre de ese elemento. Si el padre es el MainMenú, lo crea como Menú principal. Si el Padre es un elemento de menú, creará un SubMenú automáticamente.

La línea que dice el padre de un elemento es esta:

Código Delphi [-]
ppPredef.Items.Add(mnu);

El padre en este caso es "ppPredef".
Si ya tenemos creado el elemento de menú ppPredef.Items[3] y damos esta sentencia:

Código Delphi [-]
ppPredef.Items[3].Add(mnu);

El "mnu" será un submenú del elemento 3

Empezado por Mona

mi problema es muy simple, necesito crear menús dinámicos, leyendo de una b.d. necesito padres, hijos, hijos de hijos y así sucesivamente,

De simple nada. Quieres crear controles en tiempo de ejecución, eso son "temas avanzados". Necesitas como mínimo un par de bucles y puede que llamadas recursivas para crear todos los menúes.

Empezado por Mona

Solo quiero un ejemplo que se pueda implementar

Dependerá de como almacenes los menúes en tu base de datos.
En este hilo hay mucha información, es cuestión de masticar despacio.

Realmente estoy dispuesto a ayudarte, pero ten en cuenta que crear un programa desde cero, que pueda crear padres, hijos, asignarles el evento OnClick, etc, son muchas lineas de código y tiempo; aqui ayudamos sin ánimo de lucro.

[Mona]

Entiendo perfectamente, que es sin ánimo de lucro que ustedes prestan su colaboración y les agradezco.

Logré implementar en tiempo de ejecución los menús, y como dices utilicé una forma recursiva y no tengo ahora ningún inconveniente. Lepe, te agradezco tus buenas intenciones, al citar que quería un ejemplo, era simplemente que se indicara como crear varios nodos padres e hijos, ya cada cual miraría como adecuarlo a sus necesidades, había visitado varias páginas buscando ayuda en este tema, y solo creaban un nodo padre y un hijo, pero de ahí no más, y al tratar de hacerlo como lo necesitaba, dejaba de funcionar el ejemplo que colocaban.

Para la próxima tendré en cuenta escribir más detalladamente, de todas formas muchas gracias.

[Neftali [Germán.Estévez]]

Empezado por Lepe

La verdad es que "no funciona nada" no es muy concreto.

Estoy de acuerdo con Lepe.

Realmente no nos estás dando información de qué te pasa. El ejemplo que hay más arriba funciona; Yo, que lo puse, lo he probado, y las modificaciones posteriores (como ya ha comentado quinqui) también funcionan. Tu caso debe ser diferente (por el tema de la Base de Datos), pero al decir "no funciona nada" pues realmente das pocas opciones a ayudarte.

¿No te compila? ¿Te compila, pero no funciona? ¿Da algun error en ejecución? ¿Te crea algun elemento o no te crea ninguno?
¿Has ejecutado el código paso a paso?

Empezado por Mona

si tomo todo lo que dicen ahi y lo implemento en un nuevo proyecto, no sale nada

El proyecto que hay aquí, funciona perfectamente en Delphi 6 (lo acabo de comprobar de nuevo), así que algo debes estar haciendo mal o algo has cambiado.

Al igual que Lepe, te recomiendo que leas la Guía de estilo de los foros o "la otra guía de estilo".