为主菜单的相应项设置快捷键,
使得不用点击住菜单即可执行其相应的功能!
使得不用点击住菜单即可执行其相应的功能!
解决方案 »
- TreeView1的问题 100分
- delphi 7 string 的内存结构 (vc调用delphi dll)
- Merry Christmas
- 弱弱的问个问题:Pascal能不能实现类似于C++的类这样的功能?
- 如何用delphi实现自动填写当前浏览器显示的页面的标单
- 如何解决"套打"?参与者有分!
- Access数据库中插入,修改SQL语句怎么写?
- 如何用代码实现控制某控件的滚动条的移动,如上移或下移,鼠标的滚动滑轮滚动时会触发什么事件?
- windows的窗体标题栏颜色渐变算法是怎样的?
- 怎么得到当前路径?后菜的,先谢谢各位了!
- 请教各位高手,为什么我每次客户端连接服务端的时候,服务端会出现异步错误?
- 怎样把integer类型直接转换为real类型啊?
HotKeyID: Integer;
Procedure WMHotKeyHandle(Var Msg:TMessage);Message WM_HotKey;
//When Create
HotKeyID:=GlobalAddAtom(PChar('UserDefineHotKey'))-$C000;
RegisterHotKey(Handle,HotKeyID,Mod_Win,$5A); // Windows + Z
//When Destroy
UnRegisterHotKey(Handle,HotKeyID);
DeleteAtom(HotKeyID);
//When Press
Procedure TMainWindow.WMHotKeyHandle(Var Msg:TMessage);
Begin
If (Msg.LParamLo=Mod_Win) Then
Begin
Msg.Result:=1; 接受
HideTaskBar;
Application.ShowMainForm:=True;
Show;
BringWindowToTop(Handle);
ShowWindow(Handle,Sw_Normal);
Application.BringToFront;
End;
End;此方法无视窗口焦点。
也在每个caption前加了&号,
都不能成功调用快捷键!
怎么会事?