哪位好心人帮我看看下面这个奇怪的问题？

Question

procedure TForm2.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn3.SetFocus;
end;
以上程序是我想当在DBEdit8中敲回车键后，焦点定到bitbtn3上，但是我上面程序运行后，在DBEdit8中敲回车键为什么没有任何反应！我想问一下毛病出在哪里呀！

Answer 1

不可能，你可能不是在DBEdit8里按回车键吧

Answer 2

按钮只是获得焦点而已
又没有事件触发当然不会有反映
.Click
结贴

Answer 3

没有！无论我按几下，光标总是在dbedit8中闪烁着！！

Answer 4

同意hsmserver(撒哈拉之雨的悲伤) 的观点.

Answer 5

楼上说的是：你获取焦点的这个按钮没有做事件响应的处理过程！！！
比如说获取焦点的是BT1，你并没有写BT1click的事件处理过程

Answer 6

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Button1.SetFocus;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('OK')
end;

Answer 7

procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  BitBtn3.SetFocus;
end;Win2000+D6測試通過~~

Answer 8

不会吧，我怎么能通过！代码如下：
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if key=#13 then
      BitBtn1.SetFocus;
  end;  win2k,delphi6下通过

Answer 9

唉！太简单了，你的代码是敲一下回车BitBtn1获得焦点，再敲一次回车BitBtn1才能CLICK,而且，
如果你没有写BitBtn1的CLICK事件程序，它也什么都不做的
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if key=#13 then
      BitBtn1.SetFocus;
  end;好好想一下吧

Answer 10

BitBtn3里面的TabStop是否为true!!

Answer 11

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if key=#13 then
      bitbtn1click(sender);
  end;