关于键盘操作 在系统中,我想实现如下功能:按下Esc键时推出系统,能不能告诉我怎么做啊?按其他键的时间呢?比如PageDown,等。先谢了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在onkeypress事件里加入close 在OnKeyDown事件里写 if key=27 then //Esc键 27 close;Page Up键 33Page Down键 34 在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt+F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键,无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢?这就需要利用敏感键(HOTKEY)的技术来实现。本文利用Delphi3.0开发工具来阐述该技术在应用程序的实现方法。 一、敏感键的设置 ---- 在windows Api中有一个函数RegisterHotKey用于设置敏感键,它的调用方式如下: BOOL RegisterHotKey(HWND hWnd, //响应该敏感键的窗口句柄Int id, //该敏感键的唯一标示符UINT fsModifiers, //该敏感键的辅助按键UINT vk //该敏感键的键值);---- 其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间,动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间,为满足RegisterHotKey的调用要求,如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。 ---- 敏感键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键,即其键面上有Windows标志的那个键,其值为Mod_win。 ---- 在Delphi中建立一个“New Application”,在Tform1中的Private段中加入如下代码 private{ Private declarations } hotkeyid :integer; procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; //响应敏感键按键消息在FormCreate事件中加入如下代码 … hotkeyid:=GlobalAddAtom(pchar (“UserDefineHotKey”))-$C000; //减去$C000是为了保证取值范围的限制 registerhotkey(handle,hotkeyid, MOD_CONTROL or mod_Altt,$41); //敏感键为ctrl+Alt+A …二、敏感键的响应 ---- 一旦敏感键设置成功,在程序应用过程中如果有相应敏感键被按下,Windows系统都会给你的应用程序发送一个消息WM_HOTKEY,不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为: idHotKey = (int) wParam;// 该参数在设置系统级的敏感键有用,一般不予使用fuModifiers = (UINT) LOWORD(lParam);//敏感键的辅助按键uVirtKey = (UINT) HIWORD(lParam);//敏感键的键值---- 因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; 过程, 它的代码如下(这里只是简单地把窗口最前面显示) procedure TForm1.Wmhotkeyhandle(var msg:Tmessage);begin if (msg.LParamHi=$41) and (msg.lparamLo=MOD_CONTROL or mod_Alt) then begin msg.Result:=1; //该消息已经处理 application.BringToFront; //把窗口最前面显示end;end;三、敏感键的释放 ---- 在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个Windows API函数UNREGISTERHOTKEY,它的调用格式如下: BOOL UNREGISTERHOTKEY(HWND HWND, //与敏感键关联的窗口句柄INT ID //敏感键的标示符);也就是说只要在FormClose事件中加入如下代码 … unregisterhotkey(handle,hotkeyid); DeleteAtom(HotKeyID); …---- 到这里为止,你应当对敏感键技术有了全面的了解, 以上的例子相当简单同时也没有提供必要的调用成功检测,可以根据具体情况加以完善,希望对你的开发过程会有所帮助. This article is from the following URL:http://hub.myrice.com/delphizt/api/020.htmTo Host you can read above article carefully and apply the method metioned in this article in you own application!it's easy.... NO,No,是Pause键,呵呵为什么在系统刚运行时,上述方法可以。但是如果在打开一个或几个子窗体后,就不行了。关掉子窗体也不行,大家一起讨论一下哈。 TStringField的问题 delphi调用SQL问题 用A数据库的表更新B数据库中表 VB代码读写ACCESS的怎么样改写成DELPHI的? delphi中操作非接触式IC读写不了数据 谁能给一个socket发送文件的例子? Delphi6的MSCOmm和SpCOMM控件哪里有? 请问这是判断操作系统的版本吗? 有那位高手知道怎样可以设定DBGrid的小数位数? D7怎么获取本地连接的网卡的物理地址MAC? 怎样产生不同的随机数? 打开数据表出现“数据提供者或其他服务返回E_FAIL状态”的提示?????
close
if key=27 then //Esc键 27
close;
Page Up键 33
Page Down键 34
一、敏感键的设置
---- 在windows Api中有一个函数RegisterHotKey用于设置敏感键,它的调用方式如下:
BOOL RegisterHotKey(
HWND hWnd, //响应该敏感键的窗口句柄
Int id, //该敏感键的唯一标示符
UINT fsModifiers, //该敏感键的辅助按键
UINT vk //该敏感键的键值
);
---- 其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间,动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间,为满足RegisterHotKey的调用要求,如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。
---- 敏感键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键,即其键面上有Windows标志的那个键,其值为Mod_win。
---- 在Delphi中建立一个“New Application”,在Tform1中的Private段中加入如下代码
private
{ Private declarations }
hotkeyid :integer;
procedure WMhotkeyhandle(var msg:Tmessage);
message wm_hotkey; //响应敏感键按键消息
在FormCreate事件中加入如下代码
…
hotkeyid:=GlobalAddAtom(pchar
(“UserDefineHotKey”))-$C000;
//减去$C000是为了保证取值范围的限制
registerhotkey(handle,hotkeyid,
MOD_CONTROL or mod_Altt,$41);
//敏感键为ctrl+Alt+A
…
二、敏感键的响应
---- 一旦敏感键设置成功,在程序应用过程中如果有相应敏感键被按下,Windows系统都会给你的应用程序发送一个消息WM_HOTKEY,不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为:
idHotKey = (int) wParam;
// 该参数在设置系统级的敏感键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam);
//敏感键的辅助按键
uVirtKey = (UINT) HIWORD(lParam);
//敏感键的键值
---- 因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; 过程, 它的代码如下(这里只是简单地把窗口最前面显示)
procedure TForm1.Wmhotkeyhandle(var msg:Tmessage);
begin
if (msg.LParamHi=$41) and (msg.lparamLo=MOD_CONTROL or mod_Alt) then
begin
msg.Result:=1; //该消息已经处理
application.BringToFront;
//把窗口最前面显示
end;
end;
三、敏感键的释放
---- 在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个Windows API函数UNREGISTERHOTKEY,它的调用格式如下:
BOOL UNREGISTERHOTKEY(
HWND HWND, //与敏感键关联的窗口句柄
INT ID //敏感键的标示符
);
也就是说只要在FormClose事件中加入如下代码
…
unregisterhotkey(handle,hotkeyid);
DeleteAtom(HotKeyID);
…
---- 到这里为止,你应当对敏感键技术有了全面的了解, 以上的例子相当简单同时也没有提供必要的调用成功检测,可以根据具体情况加以完善,希望对你的开发过程会有所帮助.
This article is from the following URL:
http://hub.myrice.com/delphizt/api/020.htmTo Host
you can read above article carefully and apply the method metioned in this article in you own application!it's easy....
为什么在系统刚运行时,上述方法可以。
但是如果在打开一个或几个子窗体后,就不行了。
关掉子窗体也不行,大家一起讨论一下哈。