204U软件 #
设为首页
加入收藏
联系我们
操作系统  |  电脑软件  |  系统组件  |  电影  |  电视剧  |  生活
搜索: [高级搜索]
您的位置: 首页 > 电脑软件 > 应用软件 > 编程相关
 
分类导航
下载排行
最新软件
DELPHI 创建全局快捷键
软件大小: 软件类型:国产软件
软件语言:简体中文 软件授权:共享软件
软件提交:admin 更新时间:2017-03-13
软件作者:不详 软件等级:
官方网址:官方网站 程序演示:演示地址
运行环境: 下载点数:0
下载统计:总下载:0,本月下载:0,本周下载:0,今日下载:0
发表评论 错误报告 加入收藏夹
软件介绍
procedure HotyKey(var msg:TMessage); message WM_HOTKEY;  //定义

var
  Form1: TForm1;
  FShowkeyid:Integer;   //全局变量


procedure TForm1.FormShow(Sender: TObject);
begin
  FShowkeyid := GlobalAddAtom('mykey_show');     //抓取按键
  //ctrl+F2
  RegisterHotKey(handle, FShowkeyid, mod_control, VK_F2);
end;


procedure TForm1.Hotykey (var msg: TMessage);           //获取按键执行
begin
  if (msg.LParamLo=MOD_CONTROL) and ( msg.LParamHi = VK_F2) then
      chk1.Checked:=False;
   SwitchToThisWindow(Self.Handle,True) ;
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);   //释放
begin
  UnregisterHotKey( Handle, FShowkeyid );
end;
下载地址
按字母检索
网站首页 | 关于我们 | 服务条款 | 联系我们 | 免责声明 | 网站地图
Powered by SpringRoom   © 1990-2017 SR Inc.