Página 1 de 1
Inhabilitar opción PopUpMenu
Publicado: Vie Oct 14, 2005 8:52 am
por Xevi
Creo un PopupMenu...
METHOD Browse1ContextMenu( oSender, nPosX, nPosY ) CLASS TFrmCompres
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[24,oXevi:nIdioma] + TAB +"<Ins>" ACTION ::Browse1KeyDown( oSender, VK_INSERT ) BITMAP "ADDREC"
MENUITEM ::aIdioma[15,oXevi:nIdioma] + TAB +"<F3>" ACTION ::Browse1KeyDown( oSender, VK_F3 ) BITMAP "Lupa16"
MENUITEM ::aIdioma[16,oXevi:nIdioma] + TAB +"<Supr>" ACTION ::Browse1KeyDown( oSender, VK_DELETE ) BITMAP "DELREC"
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
¿Cómo puedo deshabiliatar/habilitar la opción 2 del PopupMenu, en tiempo de ejecución???
Por ejemplo, en el evento Browse1Change...
If ::oDbfDataSet1:NUMERO > 10000
//Habilitar opción2... ¿cómo accedo a la opción 2 :lEnabled := .T.???
Else
//InHabilitar opción2... ¿cómo accedo a la opción 2 :lEnabled := .F.???
EndIf
Gracias.
Un Saludo,
Xevi.
--
Inhabilitar opción PopUpMenu
Publicado: Vie Oct 14, 2005 9:27 am
por jfgimenez
Xevi,
Creo un PopupMenu...
METHOD Browse1ContextMenu( oSender, nPosX, nPosY ) CLASS TFrmCompres
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[24,oXevi:nIdioma] + TAB +"<Ins>" ACTION ::Browse1KeyDown( oSender, VK_INSERT ) BITMAP "ADDREC"
MENUITEM ::aIdioma[15,oXevi:nIdioma] + TAB +"<F3>" ACTION ::Browse1KeyDown( oSender, VK_F3 ) BITMAP "Lupa16"
MENUITEM ::aIdioma[16,oXevi:nIdioma] + TAB +"<Supr>" ACTION ::Browse1KeyDown( oSender, VK_DELETE ) BITMAP "DELREC"
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
¿Cómo puedo deshabiliatar/habilitar la opción 2 del PopupMenu, en tiempo de ejecución???
Por ejemplo, en el evento Browse1Change...
If ::oDbfDataSet1:NUMERO > 10000
//Habilitar opción2... ¿cómo accedo a la opción 2 :lEnabled := .T.???
Else
//InHabilitar opción2... ¿cómo accedo a la opción 2 :lEnabled := .F.???
EndIf
oPopup:aItems[2]:lEnabled := ( ::oDbfDataSet1:NUMERO > 10000 )
--
Un saludo,
José F. Giménez
--
Inhabilitar opción PopUpMenu
Publicado: Vie Oct 14, 2005 11:08 am
por Xevi
Jose,
PERFECTO!!! y sencillo...
En el mismo evento... OnContextMenu
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <
jfgimenez@wanadoo.es> escribió en el mensaje news:[email=
434f5dce@ozsrvnegro.ozlan.local...]
434f5dce@ozsrvnegro.ozlan.local...[/email]
Xevi,
Creo un PopupMenu...
METHOD Browse1ContextMenu( oSender, nPosX, nPosY ) CLASS TFrmCompres
LOCAL oPopup
MENU oPopup POPUP
MENUITEM ::aIdioma[24,oXevi:nIdioma] + TAB +"<Ins>" ACTION ::Browse1KeyDown( oSender, VK_INSERT ) BITMAP "ADDREC"
MENUITEM ::aIdioma[15,oXevi:nIdioma] + TAB +"<F3>" ACTION ::Browse1KeyDown( oSender, VK_F3 ) BITMAP "Lupa16"
MENUITEM ::aIdioma[16,oXevi:nIdioma] + TAB +"<Supr>" ACTION ::Browse1KeyDown( oSender, VK_DELETE ) BITMAP "DELREC"
ENDMENU
oSender:ShowPopupMenu( oPopup, nPosX, nPosY )
RETURN Nil
¿Cómo puedo deshabiliatar/habilitar la opción 2 del PopupMenu, en tiempo de ejecución???
Por ejemplo, en el evento Browse1Change...
If ::oDbfDataSet1:NUMERO > 10000
//Habilitar opción2... ¿cómo accedo a la opción 2 :lEnabled := .T.???
Else
//InHabilitar opción2... ¿cómo accedo a la opción 2 :lEnabled := .F.???
EndIf
oPopup:aItems[2]:lEnabled := ( ::oDbfDataSet1:NUMERO > 10000 )
--
Un saludo,
José F. Giménez
--