小弟有一個DBEdit與Tab的問題，尚請各位先進幫小弟解答一下，謝謝!! 小弟有一個Form，FOrm上有一個Panel，Panel上有十個DBEDit，名稱各 為DBEdt01, DBEdt02,...DBedt10, Tag值各為1,2,...10。 小弟想要在任一DBEdit上按下Enter鍵，游標就往下一個Tag值移動, 目前我是寫了十個OnKeyPress的事件在各DBEdit上 小弟想請問各位先進，是否有其他方法不要寫十個OnKetPress事件. 謝謝!

只要將 tab order 設定完成後, 將該 Form 的 KeyPreview 設為 True, 並在 Form 的 OnKeyPress event 下寫入:    

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

參考下面文章說明,可解決Enter鍵問題 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27456

timhuang兄： 可以請問一下，為何在程序中加入這一行 key := #0; 呢?? 謝謝！

使用 Key := #0 的意思表示忽略該輸入的鍵.    例如你只希望使用者輸入數字鍵的話, 就可以用這樣的方式:    

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) then
    Key := #0;
end;