导读：
李中未:
        在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
        刘鹰的意见：
        选中窗体上所有控件后，在他们的KEYdivSS事件中写如下代码：
        SELECTNEXT(SENDER AS TWINCONTROL，TRUE，TRUE);
        主持人注：这个方法比较麻烦，仅供参考。
此问题由李海回答。
        本文转自
http://www.china-askpro.com/msg10/qa42.shtml  


本文来源：http://blog.csdn.net/youwuxian1213/archive/2007/08/21/1753390.aspx