pb 窗口 多个热键 实现方法

//设置外部函数声明如下：      
FUNCTION ulong RegisterHotKey(ulong hwnd,ulong id,ulong fsModifiers,ulong vk) LIBRARY "user32.dll"
FUNCTION ulong UnregisterHotKey( ulong hWnd, ulong id ) LIBRARY "user32.dll"     

//设置实例常量如下：  
CONSTANT   LONG    WM_HOTKEY  =     786

CONSTANT   INT     HK_ID_f5    =     101
CONSTANT   INT     HK_ID_f10   =     102

CONSTANT   UINT    VK_F5     =     116 
CONSTANT   UINT    VK_F10     =     121

// 在这个数据窗口所在的窗口的OPEN事件中写 

RegisterHotKey(Handle(THIS),HK_ID_f10,0,VK_F10)  
RegisterHotKey(Handle(THIS),HK_ID_f5,0,VK_F5)

//CLOSE事件中写  
UnregisterHotKey(Handle(THIS),HK_ID_f5)
UnregisterHotKey(Handle(THIS),HK_ID_f10)

//在OTHER事件中写  
IF Message.Number  =  786   THEN      
IF  wparam = HK_ID_f5 THEN      
cb_jie.triggerevent( clicked!)
END  IF
IF  wparam = HK_ID_f10 THEN      
cb_youhui.triggerevent( clicked!)
END  IF
END IF