回车键替换TAB

关注

原创最新推荐文章于 2025-07-18 17:12:37 发布 4.2k 阅读 AI 写同款· GEO 优化 ›

在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);
    主持人注：这个方法比较麻烦，仅供参