在程序没有获得焦点的情况下,不使用HOOK如何得知用户是否按下回车键?
解决方案 »
- delphi调用C写的DLL问题
- 这个SQL语句该如何写
- 如何在运行不用提示输入数据库的连接用户名和密码?
- 我想写一个c/s结构的数据库应用程序,请各位大哥提点意见!!!!
- delphi如何开发Windows CE下运行的程序
- 我怎么使用delphi向word文档中加入图片啊?
- 在Win2000中访问注册表问题。
- 菜鸟问~!
- *.pdg文件使用什么工具打开呀?up有分!
- *******************小弟初学DELPHI,请问在方法后加^是什么意思?*************
- 请教有关在程序执行过程中生成日志文件的问题
- 怎么把一个浮点数或者其它的小数保存为两位的小数呀,而且小数第三位不管是什么都进位呢
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
id: Integer;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id then begin
ShowMessage('按了回车键!');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom('MyHotkey') = 0 then begin
id := GlobalAddAtom('MyHotkey');
RegisterHotKey(Handle, id, 0, VK_RETURN);
end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle,id);
GlobalDeleteAtom(id);
end;end.