Bruno
Hola, tengo una duda al trabajar con la clase Tpopupmenu, trato de hacer que al presionar la tecla enter en un control Tedit, poder mostrar un popup Justo bajo un control Tedit (en el que presione Enter) usando el método popup del control Tpopupmenu
el codigo es asi:
METHOD Edit1OnKeyDown( oSender, nKey ) CLASS TForm2
if nKey==13
MostrarPOPUP()
endif
return
function MostrarPOPUP()
form2:mnuiPOP := Tpopupmenu():create(form2:mnuiPOP)
form2:mnuiPOP:beginmenu()
form2:mnuiPOP:menuitem("Opción 1","")
form2:mnuiPOP:menuitem("Opción 2","")
form2:mnuiPOP:endmenu()
form2:mnuiPOP:popup(10,10)
return (0)
Ahora en la línea ( form2:mnuiPOP:popup(10,10) ) he colocado constantes para probar, pero aun asi el popup aparece en puntos distintos de la pantalla y en ocasiones no aparece la pregunta es ¿como puedo controlar el lugar exacto donde mostrar el popup?
A ver si me ayudas por favor
saludos
MAURICIO
Adjunto el proyecto (mueve la ventana form2 a lo largo de la pantalla, presiona enter en el Tedit10 y veras como no aparece el popupmenu)
Adjuntos: |
MDI.rar [2.7 KiB]
249 veces
|
|