Image控件怎么响应键盘信息??

直接写再窗体的onKeyPress上
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage('on key press'+key);
end;

或者截获wm_keydown消息

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MyonMessage(var Msg: tagMSG;
var Handled: Boolean);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyonMessage(var Msg: tagMSG; var Handled: Boolean);
begin
if msg.message = WM_KEYDOWN then
Caption := 'OnKeyDown:'+chr(msg.wParam)+':'+inttostr(Msg.wParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MyonMessage;
end;

end.

注：所有设置都是默认的。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MyonMessage(var Msg: tagMSG;
var Handled: Boolean);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyonMessage(var Msg: tagMSG; var Handled: Boolean);
begin
if (msg.message = WM_KEYDOWN) then
begin
case Msg.wParam of
VK_LEFT : Image2.Left := Image2.Left-1;
VK_RIGHT : Image2.Left := Image2.Left+1;
end;
end;
// Caption := 'OnKeyDown:'+chr(msg.wParam)+':'+inttostr(Msg.wParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := true;//
Application.OnMessage := MyonMessage;
end;

end.