检测键盘????????????????

Question

如何在窗体的client区域里,不管键盘按下哪个键都能检测到.比如:如果按下"F1"就提示消息"F1",等.  要如何搞定啊.

Answer 1

先把对应的form 的KeyPreview属性设为true
之后在Keydown事件中写代码
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=VK_F1 then
   showmessage('f1');
end; 

Answer 2

form 的KeyPreview属性设为true

Answer 3

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
showmessage(inttostr(key));
end;
显示键值，键值在windows单元定义。如：VK_F1 = 112;

Answer 4

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
showmessage(key);
end;
直接显示键盘字母。但功能键需要用konhon(优华)的方法手工加入。

Answer 5

先把对应的form 的KeyPreview属性设为true
之后在Keydown事件中写代码
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
  VK_F1:showmessage('F1');
  VK_F2:showmessage('F2');
  ...
end;
end;