到底要如何拦截回车键?(25分)

  • 主题发起人 主题发起人 zxp_ping
  • 开始时间 开始时间
Z

zxp_ping

Unregistered / Unconfirmed
GUEST, unregistred user!
我将Form的KeyPreview设为true,但在OnKeyDown和OnKeyPress均无法拦截回车键,也就是
按了回车后根本没有触发该事件。我另一个窗体可以,但我这个窗口的属性都设为一样都
还是不能,还有别的因素影响吗?
 
procedure WMKeydown(var Msg: TMessage); CN_KEYDOWN Or WM_KEYDOWN
Begin
if Msg.wParam=VK_RETURN then
Begin
......
End;
End;
 
OnKeyDown 中

if vk=VK_Return then
xxxx
 
将这个函数加到我的程序中还是不行呀?
 
呵,写错了。是
if key=VK_REturn then
xxx
 
To forss:我的都是这么写的,有一个窗口行,有一个不行。
 
你放了些什么控件在窗体上?
 
是啊。。有的控件会自动接收按键盘消息,比如DOSMOVE。。
 
一些Edit,ListView,button,label等,你能说哪些会影响吗?问题是我的edit 里的KeyDown
也不能拦截到enter?
 
把这个窗体的DFM和PAS发给我看看..
forscn@163.com
 
窗口只是程序一小部分,单独不好运行。:(
 
不要运行,一看就知道了。
 
您的信件已经成功发送到 forscn@163.com

 
情况如何?
 
老兄,,你的
btnSum的DEFAULT属性设置成TURE啦。。。
当然你所有的回车的事件都响应到这个按钮的CLICK里去了。。
 
呵呵,原车default的优先级这么高呀。谢了!
 
行了就给分啊。。黑黑。。
 
接受答案了.
 
后退
顶部