在 KEYDOWN事件中写 if key = vk_left then ..... if key = vk_right then.... if key = vk_down then.... ....
用虚拟键 vk_left , vk_right, vk_up, vk_down
当你按下键盘时,会产生OnKeyDown事件所以你在要处理的对象的OnKeyDown事件中写入:.... Case key of vk_Left: do something; vk_Right: do something; vk_Up: do something; vk_Down: do something; end; ......成功的时候要给分啊!!!哈。。
上下键要在keydown up 中写;他识别键盘扫描吗,可以做个小测试。 窗体中加入edit1和labelprocedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin label1.Caption := inttostr(key); end;可测出key 的值 上:38 下:40 左:37 右:39
if key = vk_left then .....
if key = vk_right then....
if key = vk_down then....
....
vk_left , vk_right, vk_up, vk_down
Case key of
vk_Left: do something;
vk_Right: do something;
vk_Up: do something;
vk_Down: do something;
end;
......成功的时候要给分啊!!!哈。。
窗体中加入edit1和labelprocedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption := inttostr(key);
end;可测出key 的值
上:38
下:40
左:37
右:39