怎么会?有效啊procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    caption := 'Enter';
end;

解决方案 »

  1.   

    TO Kingron(WinAPI),
        Keypreview必须为True在哪里设置呢?我用TEDIT是OK,但用DBEDIT真的无反应,不知怎么解决呢?procedure TForm1.DBEditKeyPress(Sender: TObject; var Key: Char);
    begin
        if key =#13 then
           begin
    .
    .
    .
    .
      

  2.   

    DBEDIT我试着也有效
    请确定焦点落在DBEDIT上,或者再确认看看是不是真的没执行,也许执行了你不知道,比如你一开始就exit了