HotKey on ButtonBar

Ari · Post by **Ari** » Sat Jul 07, 2007 1:57 pm

Não funciona o HotKey na buttonbar ?

Tem que criar um method keydown na Buttonbar ?

Ari

isso pode funcionar ? ..vou tentar

Code: Select all


METHOD KeyDown( nKey, nFlags ) CLASS TBar

   ::oWnd:nLastKey := nKey

   do case
      case nKey == VK_UP .or. nKey == VK_LEFT
           ::oWnd:GoPrevCtrl( ::hWnd )
           return 0

      case nKey == VK_DOWN .or. nKey == VK_RIGHT
           ::oWnd:GoNextCtrl( ::hWnd )
           return 0

      case nKey == VK_RETURN
           PostMessage( ::hWnd, FM_CLICK )    // fire the button's action
           return 0
   endcase

return Super:KeyDown( nKey, nFlags )

Ari · Post by **Ari** » Tue Jul 10, 2007 2:21 pm

Não funciona, o "prompt" não fica sublinhado "&"

preciso colocar HOTKEY nos botões da barra, tem cliente muito antigo que tá viciado nos ALT-B..etc.

Ari