Menús en tiempo de ejecución

pepetonic2001 · #1 04-08-2005

Hola:
El tema es: Creo un menú en tiempo de ejecución, al menú le creo una opción principal, que al hacer click, despliega las opciones correspondientes como subitems, pero a éstas necesito crearlas otros subitems.

Opción A
....Opción A.1
....Opción A.2
....Opción A.3
........Opción A.3.1
........Opción A.3.2

Las subopciones en rojo son las que no consigo creas en tiempo de ejecución.
¿Alguien puede darme alguna idea?.

Neftali [Germán.Estévez] · #2 04-08-2005

Utiliza la función NewItem de Delphi:

function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: THelpContext; const AName: string): TMenuItem;

Sería algo así (de todas formas en la ayuda de delphi tienes ejemplos):

Código Delphi [-]   Item := NewItem('Opcion A.3.1', 
                           ShortCut(Word('A'), [ssCtrl, ssShift, ssAlt]),
                           False{MenuChecked}, 
                           True, 
                           OptA31MenuItemClick, 0, '');
   Item.Tag := 1;
   // imagen desde un recurso
   Item.Bitmap.LoadFromResourceName(HInstance, RES_OPTA31);  
   // Añadirlo debajo de A.3 (debes accer a ese elemento del menú)
   OptA3.Add(BMenuItem);

[Lepe] · #3 04-08-2005

La verdad es que tiene truco jejeje;

Código Delphi [-]var a,b:TMenuItem;
begin
a := TMenuItem.Create(form1);
a.Caption:= 'hola';

b:= TMenuItem.Create(form1);
b.Caption := 'hola dentro';

a.Add(b);
a1.Add(a);

el 'b' está dentro del 'a', simplemente hay que hacer a.Add(b) y automaticamente lo mete dentro.

Curioso, si señor.

Edito: a1 es un menu creado en diseño, para no complicarme mucho la vida....
de esta forma queda: "b" dentro de "a", y "a" dentro de "a1"

Un saludo

pepetonic2001 · #4 24-08-2005

La solución que me ofrece Lepe me funciona cuando conozco los items y se crean antes, pero los items los tengo que crear a partir de una tabla, si la longitud de un campo es 1, entonces es de nivel Opcion A, si es 2 entonces es de nivel Opcion A.1, si es 3 entonces es de nivel Opcion A.3.1, etc.

¿Alguien me puede seguir ayudando?

Gracias de antemano

Opción A
....Opción A.1
....Opción A.2
....Opción A.3
........Opción A.3.1
........Opción A.3.2

[Lepe] · #5 24-08-2005

Pide una consulta ordenada por nivel, así ya puedes crear primero el A.1 y haces un bucle recorriendo esa consulta, mientras que el nivel sea el mismo, añades dentro, y cuando el nivel sea distinto, saltas de MenuItem.

Necesitarás una variable NivelActual:integer, para comparar el nivel del elemento que quieres crear con el último que se creó.

Tambien te será util una variable ElPadre:Tmenuitem, que al cambiar de nivel, lo vas cambiando, y te sirves de él para añadir dentro los submenus.

Código Delphi [-]var ElPadre:Tmenuitem;
     NivelActual : integer;
begin
  nivelactual := 1;
  elpadre := MenuPpal; //  es un menú existente.
  while not query1.eof do
  begin
     a := TMenuItem.Create(form1);
     a.Caption:= query1.fieldbyname('Caption').AsString;
     elpadre.Add(a);

     if query1.fieldbyname('nivel').asInteger - nivelactual > 0  then
     // es un nuevo SubMenu
        elpadre := a

    query1.next;
end;

Espero que me haya explicado.

Si necesitas más ayuda, dinos exactamente que guardas en esa tabla, todos los campos y definición de cada uno.

Un saludo

[Lepe] · #6 24-08-2005

la idea es buena, pero tiene un fallo, justo donde dice "es un nuevo Submenu" se produce un desfase y no se crean bien. Supongo que tú si tienes forma de saber si es un MenuItem que hay que asignarle el OnClick o si es simplemente un elemento para desplegar un Submenu.

Un saludo

quinqui · #7 14-06-2006

wolas a todos!

acabo de ingresar a este foro, precisamente buscando la información discutida en este tema... y me ha aclarado muchas de mis dudas, pero hay un punto en que el código me falla y el menú no se me arma hasta al final.

asumo que el problema se halla en que falta algún parámetro de control para el aspecto "niveles y posiciones" de cada item del menú.

me explico: estoy leyendo mis menúes desde una base de datos, ordenaditos por nivel y todo eso bien (en aplicaciones web me ha funcionado super bien); luego entro a recorrer con un while esta lista de menúes, e inserta perfectamente el primer item en el menú existente. sin embargo, cuando intenta insertar el segundo, reemplaza al anterior, enviándome un mensaje de error (menú inserted twice), y se me cae.
le he puesto un TRY con EXCEPT y así termina el ciclo sin reclamar, pero al final, me ha insertado el último menú de mi lista en la primera posición, sobreescribiendo todos los otros.

mi pregunta es ¿cuál es la propiedad, función o parámetro en general, que permite cambiar-asignar la posición de cada nuevo item, sin que sobreescriba al item anterior?
probé con "mi_item.MenuIndex", con "menu_padre.Insert(i, mi_item)", pero nada, es como si no tomara en cuenta el valor de "i" al insertar el nuevo item...

por cierto, ya bajé el programita de Neftalí, y si bien funciona a la perfección, me resulta demasiado lento tener que aplicarlo, adaptarlo al mío, por lo que lo dejé cuando comencé a demorarme mucho, esperando que hubiese una forma más rápida de crear este menú en ejecución... (que fue cuando encontré este hilo)...

en fin, ojalá exista la respuesta XDDD
muchas gracias a todos de antemano!!

^______^

[Lepe] · #8 14-06-2006

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 · #9 14-06-2006

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 · #10 20-06-2006

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] · #11 20-06-2006

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