Saludos

Tengo un problema con el generador de Menus que estoy haciendo
Este es un ejemplo sencillo

Local i,j
Menuppl=3
menuApl:=Array(Menuppl)
menuDsc:=Array(Menuppl)
menuExe:=Array(Menuppl)

For i=1 to Menuppl
menuApl[i]:="OpcionA"+strzero(i,2)
menudsc[i]:="Descripcion Menu OpcionA"+strzero(i,2)
menuExe[i]:="Ejecutar metodo OpcionA"+strzero(i,2)
Next i

::FMenu := TMainMenu():Create( Self )
::FMenu:BeginMenu()
For j=1 to Menuppl
::FMenu:MenuItem( menuApl[j], menuDsc[j],;
{ | oSender | ::AnalizaMenu(MenuExe[j]) },,,,,,, )
Next j
::FMenu:EndMenu()

Cuando se ejecuta:

En la linea
::FMenu:MenuItem( menuApl[j], menuDsc[j],;
{ | oSender | ::AnalizaMenu(j) },,,,,,, )
esta tomando el valor 4 para j en cualquiera de las 3 opciones ecogida

La decripcion del menu tampoco la toma MenuDsc[j]

Necesito enviar el contenido de MenuExe[j] como parametro de analizamenu, y otros parametros, Pero el ser j =4 saca error
para ver si funciona pues con un parametro es suficiente para ensayarlo

Lo unico que toma bien es menuApl[j]

Gracias

_________________
Saludos.
German