UC知道delphi 上下左右键使用
来源：百度知道 编辑：UC知道 时间：2024/07/02 15:21:36
怎么没反应，难道是asc码错了？而且，keypreview也改成TRUE了？改怎么写呀？procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
CASE KEY OF
#38 : Label1.Caption:='上';
#39:Label1.Caption:='下;
end;
end;
begin
CASE KEY OF
#38 : Label1.Caption:='上';
#39:Label1.Caption:='下;
end;
end;
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测试成功
var Key: Char
var Key: Word