Menús en tiempo de ejecución

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

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

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]

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

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

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

[pepetonic2001]

Gracias Lepe, entiendo tu explicación, pero no consigo ponerlo en marcha.

Tengo un campo que se llama Tipo, tipo caracter, allí puede haber 1, 11, 111,112,113,12,121,123,13,131,132, ect.


Si el valor es 1 -> Es una opción principal del Menú, es Opción A
Si el valor es 11 -> Es una subopción del Menú, es Opción A.1
Si el valor es 12 -> Es una subopción del Menú, es Opción A.2
Si el valor es 121 -> Es una subopción del Submenú es Opcion A.2.1
Si el valor es 13 -> Es una subopción del Menú, es Opción A.3
Si el valor es 131 -> Es una subopción del Submenú es Opcion A.3.1
Si el valor es 132 -> Es una subopción del Submenú es opcion A.3.2
y así sucesivamente,
Muchas gracias por tu ayuda,



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

[[Lepe]]

Pues nos estamos mareando, y al menos yo todavía no sé exactamente las especificaciones.

1.- Que profundidad máxima de niveles existe.
2.- Cuantos elementos de menú por cada nivel hay como máximo.
3.- Cuantos menús de este tipo vas a confeccionar, hasta el momento solo hablamos de un menú el Opcion A, pero, ¿existe una Opcion B, Opcion C ?
4.- ¿Tienes posibilidad de cambiar los tipos de campo? Con un campo 1, 11,111,121, 131, es muy lioso. Hay formas mucho más faciles.

Si aportas más datos, mejor que mejor.

Un saludo