G greenhand2003 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #1 如何捕获键盘上的左右上下键? 我是菜鸟,请给出几行代码。谢谢
W wwr74 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #2 在KeyDown事件中 if key = 上下箭头的键值 then ......
H HunterTeam Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #4 方向键要在keydown事件中用如下代码响应: case key of VK_UP:showmessage('up key'); VK_DOWN:showmessage('down key'); VK_LEFT:showmessage('left'); VK_RIGHT:showmessage('right'); end;
方向键要在keydown事件中用如下代码响应: case key of VK_UP:showmessage('up key'); VK_DOWN:showmessage('down key'); VK_LEFT:showmessage('left'); VK_RIGHT:showmessage('right'); end;
康 康凌 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-13 #5 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin showmessage(inttostr(key)); end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin showmessage(inttostr(key)); end;