W wangqi76 Unregistered / Unconfirmed GUEST, unregistred user! 2001-02-04 #1 如何捕捉到键盘中的上下键？如要求一按键盘上下键就弹出一个消息框。
U unreal Unregistered / Unconfirmed GUEST, unregistred user! 2001-02-04 #2 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.message = WM_KEYDOWN) and (Msg.wParam = VK_UP) then ShowMessage('VK_UP'); end; 用Msg.Hwnd判断是发给谁的消息。
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.message = WM_KEYDOWN) and (Msg.wParam = VK_UP) then ShowMessage('VK_UP'); end; 用Msg.Hwnd判断是发给谁的消息。
D douh Unregistered / Unconfirmed GUEST, unregistred user! 2001-02-04 #3 一定是不知道在OnKeyDown事件中上下键的扫描码吧。 告诉你一个简单的解决此类问题的方法： 1、启动一个新项目 2、在Form1的OnKeyDown事件中加入下面的一行代码： procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin caption:='key='+IntToStr(key);//在FORM1的标题条上显示当前按下键的扫描码 end; 剩下的不用说了吧？
一定是不知道在OnKeyDown事件中上下键的扫描码吧。 告诉你一个简单的解决此类问题的方法： 1、启动一个新项目 2、在Form1的OnKeyDown事件中加入下面的一行代码： procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin caption:='key='+IntToStr(key);//在FORM1的标题条上显示当前按下键的扫描码 end; 剩下的不用说了吧？
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2001-02-04 #4 那要看你要捕获的是自己的程序还是别人的程序了， 对于自己的，我就不用说了，对于别人的程序，恐怕 要用到 钩子(hook) 了
