Posicionar o foco diretamente em um ítem de menu

[alexpireslobo]

Olá pessoal.

Eu gostaria de quando abrir o menu ou dependendo de uma ação feita por um ítem de menu, posicionar o foco no POPUP que eu desejar. Isso é possível?
Por exemplo, na window abaixo, eu gostaria de quando abrir a window posicionar o foco já no POPUP "Consulta", é possível?

Obrigado pela atenção.


* HMG-IDE UNICODE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb

DEFINE WINDOW TEMPLATE AT 144 , 306 WIDTH 1180 HEIGHT 586 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "Menu Principal" ICON "C:\SAEXHB\AE\SAE.ICO" CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

DEFINE MAIN MENU
DEFINE POPUP "&Administração de Produtos"
DEFINE POPUP "&Produtos"
DEFINE POPUP "&Consulta"
DEFINE POPUP "&Código"
MENUITEM "&Registro Um a Um (Restrito)" ACTION MSGBOX('1')
MENUITEM "Re&gistro Um a Um (Completo)" ACTION MSGBOX('2')
MENUITEM "&Vários Registros (Restrito)" ACTION MSGBOX('3')
MENUITEM "Vári&os Registros (Completo)" ACTION MSGBOX('4')
END POPUP
END POPUP
END POPUP
END POPUP
END MENU

END WINDOW