http://www.delphibbs.com/delphibbs/dispq.asp?lid=635375
解决方案 »
- 项目编译提示dcc50.dll地址错误,怎么调整?
- ######业务问题:进销存系统中,入库,出库,以及销售以后是不是都是直接修改了库存表呀?在线等,多谢!######
- 一个着急的问题!在线等;给分100呀
- 如何做一个对日和月进行点一下Updown增加或减少的日期?
- 500~高分求够~企业开发报表应用~推崇一个控件
- 如何在Delphi6中调用VC++写的DLL中的重载函数?
- installshield 创建快捷方式 添加BDE engine等若干问题
- onkeydown、onkeypress、onkeyup三个事件有什么区别?
- 怎样在IE的右键快捷菜单中加入自己的项目?
- 如何防止子窗体被关闭两次
- 帮帮我吧!
- 天气太热了,烧的我晕了头,现在可好了.......
procedure TMainMenuFrm.WMHotKey(var Message: TWMHOTKEY);
begin
//定义热键事件
case Message.HotKey of////
end;
注册热键:
RegisterHotKey( Handle, GlobalAddAtom('hotkey1'), 0, vk_F1);
RegisterHotKey( Handle, GlobalAddAtom('hotkey2'), 0, vk_F2);
TMainForm = class(TForm)
...
private
{ Private declarations }
//the application global hot key defination
procedure WMHOTKEY(var Msg:TWMHOTKEY); message WM_HOTKEY;
public
{ Public declarations } //the global hot key indentifier
HotKey_F01_ID:Integer;
.....
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
//register the global hot key
HotKey_F01_ID:=GlobalAddAtom('_Global_HotKey_F01_ID_')-$C000;
RegisterHotKey(MainForm.Handle,HotKey_F01_ID,0,vk_F1);
end;procedure TMainForm.FormDestroy(Sender: TObject);
begin
//unregister the global hot key
UnRegisterHotKey(MainForm.Handle,HotKey_F01_ID);
GlobalDeleteAtom(HotKey_F01_ID);
end;//receive the global hot key message
procedure TMainForm.WMHOTKEY(var Msg:TWMHOTKEY);
begin
if Msg.HotKey=HotKey_F01_ID then
Begin
Application.BringToFront;
ShowMessage('F1 pressed!!!');
end;
end;
2.为什么焦点移到EXE上的主窗口后就无法回到DLL的FORM上?再问一次,希望有高手帮我解决问题!
2.为什么焦点移到EXE上的主窗口后就无法回到DLL的FORM上?再问一次,希望有高手帮我解决问题!
2.为什么焦点移到EXE上的主窗口后就无法回到DLL的FORM上?再问一次,希望有高手帮我解决问题!