FiveTech Software tech support forums

Code: Select all

TB_MAPACCELERATOR
    wParam = (WPARAM)(TCHAR) chAccel;
    lParam = (LPARAM)(LPUINT) pIDBtn;

Maps an accelerator character to a toolbar button. 

Returns nonzero if successful, or zero otherwise. 
chAccel 
Accelerator character to be mapped. This character is the same character that is underlined in the button's text. 
pIDBtn 
Address of a UINT that receives the command identifier of the button that corresponds to the accelerator specified in cchAccel. 

Code: Select all

lResult = SendMessage(      // returns LRESULT in lResult 
    (HWND) hWndControl,      // handle to destination control
     (UINT) TB_MAPACCELERATOR,      // message ID
     (WPARAM) wParam,      // = (WPARAM) (TCHAR) chAccel;
    (LPARAM) lParam      // = (LPARAM) (LPUINT) pIDBtn;
 ); 

Code: Select all

#define TB_MAPACCELERATOR         1102

METHOD AccButton( nVirtKey , nButton ) CLASS TToolBar    // Vikthor

   SendMessage( ::hWnd , TB_MAPACCELERATOR , nVirtKey , nButton - 1 )

return nil

Code: Select all

   oToolBar:AccButton(  Asc( "N" ) , 1 )