Question

delphi 上下左右键使用

怎么没反应，难道是asc码错了？而且，keypreview也改成TRUE了？改怎么写呀？procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
CASE KEY OF
#38 : Label1.Caption:='上';
#39:Label1.Caption:='下;
end;
end;

Answer 1

var Key: Char

var Key: Word

Answer 2

keypress事件只能检测可以显示的键,不能检测功能键
keydup可以检测所有键
你的这个功能可以在 keydup事件中检测,如下:
(注意:FROM1窗体的keypreview属性置true)
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
CASE KEY OF
37 : Label1.Caption:='左';
38 : Label1.Caption:='上';
39 : Label1.Caption:='右';
40 : Label1.Caption:='下';
end;
end;
以上在winxp+d7测试成功