導讀：
李中未:
        在Delphi程式設計中，如何實現用回車鍵在若干個編輯視窗中切換？比如，姓名和密碼兩個輸入視窗，輸入姓名後，只能用Tab鍵或用滑鼠定位游標到密碼輸入視窗，我想用回車鍵切換視窗。
回答:
        先將窗體的KeyPreview屬性設為True。然後在FormKeyPress事件中加入以下程式碼：
        procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
        begin
        if Key = #13 then { 如果按下了回車鍵 }
        begin
        Key := #0{ 吃掉回車鍵 }
        Perform(WM_NEXTDLGCTL, 0, 0); { 移動到下一個控制 }
        end
        end
        這個方法對於大多數控制元件都適用，但不適用於TButton控制元件，因為對於按鈕，回車鍵等於按下了按鈕，不觸發FormKeyPress事件。
        Perry問：
        非常感謝得到你的指點，你的方法確實已經非常簡單，但如果要在每一個視窗都重複寫以上內容，還是有些繁。怎樣將其改寫成一個自定義過程，然後在每一個視窗中呼叫此過程?
        答：要改寫成一個自定義過程，可以這樣：
        procedure MyKeyPress(frm:TForm; var Key: Char);
        begin
        if Key = #13 then { 如果按下了回車鍵 }
        begin
        Key := #0{ 吃掉回車鍵 }
        frm.Perform(WM_NEXTDLGCTL, 0, 0); { 移動到下一個控制 }
        end
        end
        procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
        begin
        MyKeyPress(Self, Key);
        end
        如果你經常使用這樣的窗體，你也可以在設定好KeyPreview屬性和輸入程式碼後，在Form上擊右鍵，選擇Add to Repository，這樣把Form新增到Delphi的Repository庫中，以後建立新視窗時，可以從Delphi的對話方塊的Forms中選擇你新增的這個窗體作為模板。
        Perry問：
        非常感謝您給出以上好方法。最近我發現以上方法還有一個不足之處:
        如果我在form中使用了DBMemo控制元件，那麼在DBMemo中(表格的備註欄位)將不能輸入Enter，也就是說說在DBMemo中不能實現換行操作。因為只要你按下Enter鍵，游標馬上就會從DBMemo中跳幵，這顯然不合要求。請問這一點應如何改進?謝謝!
        答：這的確是個問題。可以這樣解決：在KeyPress事件中先判斷一下控制元件的型別，如果當前控制元件是TMemo或TDBMemo（甚至可以進一步檢查控制元件的名字中是否帶有Memo的），就不進行移動，對於這樣的控制元件還是通過Tab鍵移動。下面是程式碼：
        var sClassName: string
        begin
        if Key = #13 then { 如果按下了回車鍵 }
        begin
        sClassName := TForm(Sender).ActiveControl.ClassName;
        if (sClassName <>'TDBMemo')
        And (sClassName <>'TMemo') then
        begin
        Key := #0{ 吃掉回車鍵 }
        Perform(WM_NEXTDLGCTL, 0, 0); { 移動到下一個控制 }
        end
        end
        劉鷹的意見：
        選中窗體上所有控制元件後，在他們的KEYPRESS事件中寫如下程式碼：
        SELECTNEXT(SENDER AS TWINCONTROL，TRUE，TRUE);
        主持人注：這個方法比較麻煩，僅供參考。
此問題由李海回答。
        本文轉自
http://www.china-askpro.com/msg10/qa42.shtml