怎么一个文本框中的keypress事件没反应

Question

我想是你在Form上放了Button并且将一Button的Default设成了True

Answer 1

procedure  Tqyxxfrm.EdtQybmKeyPress(Sender:  TObject;  var  Key:  Char);
  begin
      if  key=VK_RETURN  then
      begin
  。
  。
  。

Answer 2

不用VCL封装的事件，自己拦截消息一定行

Answer 3

要在属性里设置：
KeyPreview 设置为True;

Answer 4

是否给Form也设置了KeyPress事件了？

Answer 5

用的是pagecontrol，在pagecontrol的一个tabsheet里也有一个文本框用了keypress事件，那里运行正常，在另一个tabsheet里就不行了
还有怎么加分

Answer 6

我的测试代码：
  if key=#13 then
    ShowMessage('#13')
  else ShowMessage(' No #13!');
可以判断捕获回车键。你在 if key=#13 then 语句上设一断点,看一看按回车键时流程是否执行到此行,再看看key的值.

Answer 7

程序根本就没执行到
if  key=#13  then