Tedit控件对ESC 和 ENTER按健没有反应

Question

我实现了TEdit.OnKeyDown事件showmessage(inttostr(Key));发现除了 ESC 和 ENTER外,按其他的键均会出现对话框

Answer 1

那就再寫一行：
if key=#13 then....

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
showmessage(inttostr(Key));
end;
美问题呀
esc 27
ENTER 13

Answer 3

我知道原因了,是因为我家了两个bitbtn(确定和取消)

Answer 4

你的窗口可能没在活动状态，或者焦点没在Edit1。
如果还不是，有一种可能你的了 ESC 和 ENTER over了

Answer 5

将你的bitbtn 的kind 改为：bkCustom，modalresult 改为mrNone,即可