Delphi:如何使 ENTER 键在 TFrame 中充当 TAB 键

Question

我有一个框架和一些控件(编辑、按钮等)。如何拦截在框架控件上任意位置按下 ENTER 键并将其转换为 TAB 键(考虑到 SHIFT 状态)？

Answer 1

您所需要的只是修改 CM_DIALOGKEY 的处理。

type
  TMyForm = class(TForm)
  protected
    procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY;
  end;

procedure TMyForm.CMDialogKey(var Message: TCMDialogKey);
begin
  if Message.CharCode=VK_RETURN then
    Message.CharCode := VK_TAB;
  inherited;
end;

嗯，它的作用和工作原理非常明显。

您询问如何在框架中执行此操作。无法在框架中处理对话框导航。出于相当明显的原因，这是通过表单完成的。因此，您需要以某种方式将此代码拼接到托管框架的表单中。

对于备忘录控件，这不会产生任何效果。他们会将按 ENTER 视为换行符的输入。但我想这就是您希望发生的事情。否则备忘录控件将完全无法使用。