很怪很怪的很小很小的问题。

Question

procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 13 then
  begin
    ShowMessage('ok');
  end;
end;按回车后，无反应，大家告诉我怎么回事啊。我新建一个工程，添加一个tedit，然后按上面写keydown事件，就可以弹出来对话框。

Answer 1

procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if Key = #13 then 
  begin 
    ShowMessage('ok'); 
  end; 
end; 

Answer 2

procedure TQJ_F.Edit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if Key = Word(#13) then 
  begin 
    ShowMessage('ok'); 
  end; 
end; 

Answer 3

那就是你的begin end之间的程序的问题,设置断点跟踪一下

Answer 4

TQJ_F的KeyPreview属性设置为True,在窗体上响应了OnKeyDown事件,并且在这个事件中终止了其它操作,就会出现这种现象.