怎样让程序响应系统键操作，如F1~F8？(90分)

  • 主题发起人 主题发起人 lyloyal
  • 开始时间 开始时间
L

lyloyal

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样让程序响应系统键操作，如F1~F8？ 我的意思是当按下F1或其它键时让程序执行某些
操作，这样的windows消息程序怎获得，请举例说明，thanks
 
和其他键一样，不过OnKeyDown事件判断 Key=VK_F1 到 VK_F8
 
用一个菜单，高定快捷就行了呀
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_F1 then
showmessage('f1');
end;
 
要全局响应功能键，应该实现TApplicationEvent的OnMessage事件，如下面的过程
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message=WM_KeyDown then
if msg.wParam=vk_f1 then
begin
ShowMessage('AAAAAAAAAAAAAAA');
handled:=True;
end;
end;
 
把窗体的keypreview改为true。然后在OnKeyDown事件中判断就可以了。
 
djdsz 兄的对！这个函数的作用相当于　
vc 里的ＷｎｄＰｒｏｃ什么都通过这个函数
 
窗体失去焦点怎么办，不使用KeyDown事件怎样实现？
 
to djdsz:TApplicationEvent的OnMessage事件在程序的什么地方，能否详细说明
thanks!
 
可用hook或用registerhotkey，在已答问题中有
 
设置SHUTCUT了
或者在 ONKEYDOWNs事件中写了 ，判断KEY值
 
Additional页上有一个TApplicationEvent控件的。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
T
如何让多层系统中的应用程序服务器执行了对表sql指令后，让连在执行sql语句表的客户程序自动响应刷新(100分)
回复
3
查看
118
thomashukaidi
T
Y
编程检测远程计算机的操作系统怎样实现？(50分)
回复
1
查看
174
张无忌
张
Y
100分啊！求监视某个应用程序中的所有键盘按键，Win系统高手快来！(100分)
2
回复
30
查看
496
YFeral
Y
P
如何应用程序做成操作系统的一种服务？(100分)
回复
3
查看
138
52free
5
后退
顶部