定义全局变量:
Constant Long WM_SETHOTKEY = 50 //设置热键消息值
Constant Long HK_MYHOTKEY = 1648 //热键参数值(Ctrl+Alt+F1,其它组合自己计算)
Constant Long SC_HOTKEY = 61776 //PB中的热键消息
定义外部api函数:
function long SendMessageA(long lhWnd,uint uiMsg,long lwMsg,long lwParam) library 'user32.dll'
在定义热键的窗体中:
long ll_RC
ll_RC = SendMessageA(Handle(this), WM_SETHOTKEY, HK_MYHOTKEY, 0)
if ll_RC <> 1 then
messagebox("错误","无法定义热键")
end if
在窗口other事件中:
IF wparam = SC_HOTKEY THEN
//在这里触发你隐藏的按钮clicked事件
cb_1.triggerevent( clicked!)
END IF
在PB9中测试通过!
本人原贴:http://community.csdn.net/Expert/topic/4297/4297322.xml?temp=5.802554E-02