.... * at this pont x1 contains all availble numbers like: x1=[2589] * the menu should 4 pads showing either 2 or 5 ... DEFINE POPUP _SC SHORTCUT RELATIVE FROM MROW(),MCOL() FOR I = 1 TO LEN(x1) x2=SUBSTR(x1,I,1) x3=[DEFINE BAR ]+x2+[ OF _SC PROMPT "]+x2+["] &x3 x4=[ON SELECTION BAR ]+TRANSFORM(i)+[ OF _SC _Screen.ActiveForm.ActiveControl.MenuSelected(PAD())] &x4 ENDFOR ACTIVATE POPUP _SCThis throws the following error: no menu item defined
>ON SELECTION BAR 3 OF shortcut _SCREEN.ActiveForm.activecontrol.value = 2 > >or >ON SELECTION BAR 3 OF shortcut .activecontrol.value = 2 > >WITH m.thisform > ACTIVATE POPUP shortcut >ENDWITH >>