| 订阅 | 在线投稿
分享
 
 
当前位置: 王朝网络 >> delphi >> DELPHI zhong shi yong re jian

DELPHI zhong shi yong re jian

2006-09-16 05:50:28 编辑來源:互联网 评论
 
 
 
本文为【DELPHI中使用热键】的拼音翻译版
  zai windows zhong gui ding ying yong cheng xu re jian de wei yi biao shi fu qu zhi fan wei zai 0x0000~0xBFFF zhi jian , dong tai lian jie ku de qu zhi fan wei zai 0xC000~0XFFFF zhi jian 。
   re jian de fu zhu an jian huan bao kuo Mod_Ctrl,Mod_Alt he Mod_Shift, dui yu windows jian rong jian pan , huan bao kuo windows biao zhi jian ,Mod_Win。
   re jian she zhi cheng gong hou , zai cheng xu yun xing guo cheng zhong ru guo you yu ding yi de re jian bei an xia ,windows xi tong dou hui gei ying yong cheng xu fa song yi ge wm_hotkey xiao xi 。
   xia mian yong yi ge li zi yan shi ta de shi yong
  
  
  
   bian yi cheng xu 、 yun xing , ru guo ci cheng xu bu shi dang qian zhuo mian xian shi zai zui qian bian de chuang ti , an xia ctrl+alt+a hou , cheng xu jie mian jiang chu xian zai zhuo mian de zui shang 。
   shi li cheng xu kai fa ping tai :D7+WINXP
   zhuan zai qing zhu ming chu chu 。
DELPHI中使用热键
unit Unit1;
DELPHI中使用热键

DELPHI中使用热键
interface
DELPHI中使用热键

DELPHI中使用热键
uses
DELPHI中使用热键
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
DELPHI中使用热键

DELPHI中使用热键
type
DELPHI中使用热键
TForm1 = class(TForm)
DELPHI中使用热键
procedure FormCreate(Sender: TObject);
DELPHI中使用热键
procedure FormClose(Sender: TObject; var Action: TCloseAction);
DELPHI中使用热键
private
DELPHI中使用热键
DELPHI中使用热键
...{ Private declarations }
DELPHI中使用热键
public
DELPHI中使用热键
DELPHI中使用热键
...{ Public declarations }
DELPHI中使用热键
hotkeyid :integer; // ji lu re jian biao shi
DELPHI中使用热键
// chu li wm_hotkey xiao xi
DELPHI中使用热键
procedure WMhotkeyhandle(var msg:Tmessage);
DELPHI中使用热键
message wm_hotkey;
DELPHI中使用热键

DELPHI中使用热键
end;
DELPHI中使用热键

DELPHI中使用热键
var
DELPHI中使用热键
Form1: TForm1;
DELPHI中使用热键

DELPHI中使用热键
implementation
DELPHI中使用热键

DELPHI中使用热键
DELPHI中使用热键
...{$R *.DFM}
DELPHI中使用热键
procedure TForm1.Wmhotkeyhandle
DELPHI中使用热键
(var msg:Tmessage);
DELPHI中使用热键
begin
DELPHI中使用热键
// pan duan shi fou shi ctrl+alt+a
DELPHI中使用热键
if (msg.LParamHi=$41) and
DELPHI中使用热键
(msg.lparamLo=MOD_CONTROL or mod_Alt) then
DELPHI中使用热键
begin
DELPHI中使用热键
msg.Result:=1;// zheng chang fan hui
DELPHI中使用热键
application.BringToFront;// jiang chuang ti xian shi zai zui qian bian
DELPHI中使用热键
end;
DELPHI中使用热键
end;
DELPHI中使用热键

DELPHI中使用热键
procedure TForm1.FormCreate(Sender: TObject);
DELPHI中使用热键
begin
DELPHI中使用热键
// tong guo yuan zi biao huo de yi ge guan yu hotkey de wei yi biao shi , zhu yi ben wen qian bian ti dao de fan wei
DELPHI中使用热键
hotkeyid:=GlobalAddAtom(pchar('UserDefineHotKey'))-$C000;
DELPHI中使用热键
// zhu ce ctrl+alt+a
DELPHI中使用热键
registerhotkey(handle,hotkeyid,MOD_CONTROL or mod_Alt,$41);
DELPHI中使用热键

DELPHI中使用热键
end;
DELPHI中使用热键

DELPHI中使用热键
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
DELPHI中使用热键
begin
DELPHI中使用热键
unregisterhotkey(handle,hotkeyid);//
DELPHI中使用热键
DeleteAtom(HotKeyID);
DELPHI中使用热键
end;
DELPHI中使用热键

DELPHI中使用热键
end.
DELPHI中使用热键
原文】【汉音对照
 
 
 
 
 
 
 
 
 
日版宠物情人插曲《Winding Road》歌词

日版宠物情人2017的插曲,很带节奏感,日语的,女生唱的。 最后听见是在第8集的时候女主手割伤了,然后男主用嘴帮她吸了一下,插曲就出来了。 歌手:Def...

兄弟共妻,我成了他们夜里的美食

老钟家的两个儿子很特别,就是跟其他的人不太一样,魔一般的执着。兄弟俩都到了要结婚的年龄了,不管自家老爹怎么磨破嘴皮子,兄弟俩说不娶就不娶,老父母为兄弟两操碎了心...

如何磨出破洞牛仔裤?牛仔裤怎么剪破洞?

把牛仔裤磨出有线的破洞 1、具体工具就是磨脚石,下面垫一个硬物,然后用磨脚石一直磨一直磨,到把那块磨薄了,用手撕开就好了。出来的洞啊很自然的。需要猫须的话调几...

我就是扫描下图得到了敬业福和爱国福

先来看下敬业福和爱国福 今年春节,支付宝再次推出了“五福红包”活动,表示要“把欠大家的敬业福都还给大家”。 今天该活动正式启动,和去年一样,需要收集“五福”...

冰箱异味产生的原因和臭味去除的方法

有时候我们打开冰箱就会闻到一股异味,冰箱里的这种异味是因为一些物质发出的气味的混合体,闻起来让人恶心。 产生这些异味的主要原因有以下几点。 1、很多人有这种习...

 
 
zai windows zhong gui ding ying yong cheng xu re jian de wei yi biao shi fu qu zhi fan wei zai 0x0000~0xBFFF zhi jian , dong tai lian jie ku de qu zhi fan wei zai 0xC000~0XFFFF zhi jian 。 re jian de fu zhu an jian huan bao kuo Mod_Ctrl,Mod_Alt he Mod_Shift, dui yu windows jian rong jian pan , huan bao kuo windows biao zhi jian ,Mod_Win。 re jian she zhi cheng gong hou , zai cheng xu yun xing guo cheng zhong ru guo you yu ding yi de re jian bei an xia ,windows xi tong dou hui gei ying yong cheng xu fa song yi ge wm_hotkey xiao xi 。 xia mian yong yi ge li zi yan shi ta de shi yong bian yi cheng xu 、 yun xing , ru guo ci cheng xu bu shi dang qian zhuo mian xian shi zai zui qian bian de chuang ti , an xia ctrl+alt+a hou , cheng xu jie mian jiang chu xian zai zhuo mian de zui shang 。 shi li cheng xu kai fa ping tai :D7+WINXP zhuan zai qing zhu ming chu chu 。 [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]unit Unit1; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]interface [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]uses [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]type [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] TForm1 = class(TForm) [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure FormCreate(Sender: TObject); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure FormClose(Sender: TObject; var Action: TCloseAction); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] private [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url] ...{ Private declarations } [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] public [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url] ...{ Public declarations } [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] hotkeyid :integer; // ji lu re jian biao shi [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] // chu li wm_hotkey xiao xi [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] procedure WMhotkeyhandle(var msg:Tmessage); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] message wm_hotkey; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]var [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] Form1: TForm1; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]implementation [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gif[/img][/url][url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif[/img][/url]...{$R *.DFM} [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.Wmhotkeyhandle [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url](var msg:Tmessage); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] // pan duan shi fou shi ctrl+alt+a [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] if (msg.LParamHi=$41) and [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] (msg.lparamLo=MOD_CONTROL or mod_Alt) then [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] begin [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] msg.Result:=1;// zheng chang fan hui [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] application.BringToFront;// jiang chuang ti xian shi zai zui qian bian [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] end; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.FormCreate(Sender: TObject); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] // tong guo yuan zi biao huo de yi ge guan yu hotkey de wei yi biao shi , zhu yi ben wen qian bian ti dao de fan wei [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] hotkeyid:=GlobalAddAtom(pchar('UserDefineHotKey'))-$C000; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] // zhu ce ctrl+alt+a [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] registerhotkey(handle,hotkeyid,MOD_CONTROL or mod_Alt,$41); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]begin [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] unregisterhotkey(handle,hotkeyid);// [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] DeleteAtom(HotKeyID); [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end; [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url] [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]end. [url=http://www.wangchao.net.cn/bbs/pydetail_501490.html][img]http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif[/img][/url]
󰈣󰈤
  免责声明:本文仅代表作者个人观点,与王朝网络无关。王朝网络登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
时尚秀气模特裴裴(8)
时尚秀气模特裴裴(7)
时尚秀气模特裴裴(6)
时尚秀气模特裴裴(5)
白墙黑瓦
广州东郊[原创]
八美至丹巴的东谷天然盆景
不一样的
 
>>返回首页<<
 
 
 为你推荐
 
 
 
 转载本文
 UBB代码 HTML代码
复制到剪贴板...
 
 热帖排行
 
 
 
 
 
©2005- 王朝网络 版权所有