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
|