topic-7519

Posts: 253

Joined: Fri Feb 03, 2006 04:21 PM

HotKey on ButtonBar
Posted: Sat Jul 07, 2007 01: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 Collapse

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 )

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

Ari

Posts: 253

Joined: Fri Feb 03, 2006 04:21 PM

HotKey on ButtonBar
Posted: Tue Jul 10, 2007 02: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

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

FiveTech Support Forums

Continue the discussion