OnKeyUp却是响应 方向键的OnkeyDown 键盘上其它键都能响应,就是4个方向键不响应,可能是什么原因?
我找了很久,程序当中没有哪个控件用了 方向键KeyDown的事件ps:新建一个delphi application,Form.Onkeydown 4个方向键应该会响应:我用
ShowMessage(IntToStr(Key)) 测试;迷糊中
我找了很久,程序当中没有哪个控件用了 方向键KeyDown的事件ps:新建一个delphi application,Form.Onkeydown 4个方向键应该会响应:我用
ShowMessage(IntToStr(Key)) 测试;迷糊中
解决方案 »
- 怀念~~CSDN曾经的岁月...再也不会回来了...
- 求助:如何把png格式的图片转换成bmg格式的图片?
- 问两个问题200分送给大家
- 怎么让DateTimePicker.date的值是机器当前时间?
- 高分请教:如何编写动态报表 . 别诚交成交 DELPHI程序员(工作地点,东莞虎门)
- Update语句在Access中执行成功,怎样获取成功Update了哪些记录及记录数?Sql server下可用Trigger完成!
- 用indy9的idpop3收信后应该怎样解码?
- 视频播放控件 有关 Delphi 中 Microsoft ActiveMovie Control的问题。
- 怎么获得CPU的信息??(sysinfo.dwProcessorType不太对头!)
- sql server 2000 卸载后的重装问题!!
- 这句有否问题?
- 谁知道怎么得到一个动态数组的长度
你把这个控件的tabstop属性设置成false 那么在窗体最初运行的时候方向键可以响应的
但是只要button控件得到过焦点之后就完了
把你的需求说出来可以考虑用别的方法实现
如果程序初始化设置它的TabStop为false,不通过鼠标等方式使其获得焦点 Form.OnKeyDown是响应方向键的, 但只要让其获得过焦点,再设置其它控件focused(Map:TMap应该失去焦点了吧?),Form.OnKeyDown又不响应方向键了 :( 而这个程序,不可能不对(Map:TMap)操作的 !郁闷
procedure TMainForm.KeyListen(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
begin
if Msg.wParam = VK_UP then
showmessage('UP is Pressed');
end;
end;
{------}在主窗体的OnCreate事件中加入:{------}
Application.OnMessage := KeyListen;
{------}程序运行期间不断接收 WM_KEYDOWN信息, 若按下的键是VK_UP,该干什么干什么