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