考虑一下创建一些快速街机游戏。比如说，所有的图形都显示在收件箱中。TPaintBox无法接收输入焦点-用户按键时不会触发任何事件；我们无法拦截光标键来移动我们的战舰。德尔福帮助！

截取键盘输入

大多数Delphi应用程序通常通过特定的事件处理程序处理用户输入，这些事件处理程序使我们能够捕获用户击键并处理鼠标移动。

我们知道焦点是通过鼠标或键盘接收用户输入的能力。只有具有焦点的对象才能接收键盘事件。某些控件（如TImage、TPaintBox、TPanel和TLabel）无法接收焦点。大多数图形控件的主要用途是显示文本或图形。

如果我们想截获无法接收输入焦点的控件的键盘输入，我们必须处理Windows API、挂钩、回调和消息。

Windows钩子

从技术上讲，“hook”函数是一个回调函数，可以插入到Windows消息系统中，以便应用程序可以在对消息进行其他处理之前访问消息流。在许多类型的windows钩子中，每当应用程序调用GetMessage（）或PeekMessage（）函数，并且有WM_KEYUP或WM_KEYDOWN键盘消息要处理时，就会调用键盘钩子。

要创建一个键盘钩子来截取指向给定线程的所有键盘输入，我们需要调用setWindowsHookExAPI函数。接收键盘事件的例程是应用程序定义的回调函数，称为hook函数（KeyboardHookProc）。在将消息放入应用程序的消息队列之前，Windows会为每个击键消息（向上键和向下键）调用钩子函数。钩子函数可以处理、更改或放弃击键。钩子可以是本地的，也可以是全局的。

SetWindowsHookEx的返回值是刚刚安装的钩子的句柄。在终止之前，应用程序必须调用unhookwindowshookx函数来释放与钩子关联的系统资源。

键盘挂钩示例

作为键盘挂钩的演示，我们将创建一个带有图形控件的项目，该控件可以接收按键。TImage源于TGraphic控件，它可以用作我们假设的战斗游戏的绘图面。由于TImage无法通过标准键盘事件接收键盘按键，因此我们将创建一个钩子函数，截取指向绘图表面的所有键盘输入。

timage处理键盘事件

启动新的Delphi项目，并在表单上放置一个图像组件。设置Image1。将属性与alClient对齐。这就是视觉部分，现在我们要做一些编码。首先，我们需要一些全局变量：

var Form1: TForm1; KBHook: HHook; {this intercepts keyboard input} cx, cy : integer; {track battle ship's position} {callback's declaration} function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt): LongInt; stdcall; implementation ...

要安装钩子，我们在表单的OnCreate事件中调用SetWindowsHookEx。

procedure TForm1.FormCreate(Sender: TObject) ; begin {Set the keyboard hook so we can intercept keyboard input} KBHook:=SetWindowsHookEx(WH_KEYBOARD, {callback >} @KeyboardHookProc, HInstance, GetCurrentThreadId()) ; {place the battle ship in the middle of the screen} cx := Image1.ClientWidth div 2; cy := Image1.ClientHeight div 2; Image1.Canvas.PenPos := Point(cx,cy) ; end;

要释放与钩子关联的系统资源，我们必须在OnDestroy事件中调用unhookwindowshookx函数：

procedure TForm1.FormDestroy(Sender: TObject) ; begin {unhook the keyboard interception} UnHookWindowsHookEx(KBHook) ; end;

该项目最重要的部分是用于处理击键的KeyboardHookProc回调过程。

function KeyboardHookProc(Code: Integer; WordParam: Word; LongParam: LongInt) : LongInt; begin case WordParam of vk_Space: {erase battle ship's path} begin with Form1.Image1.Canvas do begin Brush.Color := clWhite; Brush.Style := bsSolid; Fillrect(Form1.Image1.ClientRect) ; end; end; vk_Right: cx := cx+1; vk_Left: cx := cx-1; vk_Up: cy := cy-1; vk_Down: cy := cy+1; end; {case} If cx < 2 then cx := Form1.Image1.ClientWidth-2; If cx > Form1.Image1.ClientWidth -2 then cx := 2; If cy < 2 then cy := Form1.Image1.ClientHeight -2 ; If cy > Form1.Image1.ClientHeight-2 then cy := 2; with Form1.Image1.Canvas do begin Pen.Color := clRed; Brush.Color := clYellow; TextOut(0,0,Format('%d, %d',[cx,cy])) ; Rectangle(cx-2, cy-2, cx+2,cy+2) ; end; Result:=0; {To prevent Windows from passing the keystrokes to the target window, the Result value must be a nonzero value.} end;

就这样。我们现在有了最终的键盘处理代码。

请注意，只有一件事：此代码绝不限于仅与TImage一起使用。

KeyboardHookProc功能用作通用的KeyPreview和KeyProcess机制。