delphi - 如何使 Enter 键在 Delphi FireMonkey 应用程序中表现为一个选项卡？

Question

以前在 Delphi VCL 应用程序中，很容易“覆盖”组件的 onkeyup 或 onkeydown 事件上的击键，使 Enter 键表现为 TAB 键。 FireMonkey 应用程序的工作方式与 VCL 不同，那么现在应该如何做呢？

Answer 1

感谢@Uwe Raabe 提供的简单解决方案，我正在编辑我的答案以提供另一种解决方案。我将把所有内容都留在这里，因为这个答案揭示了 Firemonkey 中的一些“魔法”，而这些魔法通常并不明显。

我需要在 Form 的 FormShow 事件上动态创建“TAB”功能，以节省自己的实现时间。我需要创建一个类来处理 TNotifyEvent (OnClick)。这是我现在已经成功测试的其他解决方案。请注意，下面的代码将尝试删除 Enter 上的“默认”按钮操作，以使其正常工作。

type  
  TClickObject = class(TObject)
  public
    Form: TForm;
    procedure MyTabOnClick(Sender: TObject);
  end;

{ ClickClass }

procedure TClickObject.MyTabOnClick(Sender: TObject);
var
  ch: Char;
  key: Word;
begin
  if Form = nil then Exit;
  key := vkTab;
  ch := #9;
  Form.KeyDown(key, ch, []);
end;

function CreateTabButton(Form: TForm): TButton;
var
  Count: Integer;
  ClickObject: TClickObject;

begin
  //Make the click object
  ClickObject := TClickObject.Create;
  ClickObject.Form := Form;

  //Make other buttons not default
  for Count := 0 to Form.ComponentCount-1 do
  begin
    if (Form.Components[Count] is TButton) then //Extend for other buttons ?
    begin
      (Form.Components[Count] as TButton).Default := False;
    end;
  end;

  //Make a button far off the screen
  Result := TButton.Create(Form);
  Result.Parent := Form;
  Result.Default := True;
  Result.OnClick := ClickObject.MyTabOnClick;
  Result.Text := 'TAB';
  Result.Position.X := -10000;
  Result.Position.Y := -10000;
end;

//Form OnShow Event, declare tabButton as TButton in your Form then you can use it on other components like combo boxes where you want to fire tab / enter event

tabButton :=  CreateTabButton(Self);

例如 TComboBox 与 Button 解决方案不相配，这里是一个让它工作的例子

procedure TForm1.CommboBox1KeyUp(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
  if (Key = 13) then
  begin
    tabButton.OnClick(self); //tabButton declared in the Form an initialized with CreateTabButton
  end;
end;

以下代码是一个过程，可以从全局库或 TDataModule 中使用它来为您提供 Enter to Tab 功能。我在输入上使用了 onkeyup 事件来测试它。

procedure HandleEnterAsTab(Form: TForm; Sender: TObject; Key: Word);
var
  TabList: ITabList;
  CurrentControl, NextControl: IControl;
begin
  if (Key = vkReturn) then
  begin
    TabList := Form.GetTabList;
    CurrentControl := TControl(Sender);
    NextControl := TabList.FindNextTabStop(CurrentControl, True, False);
    if (NextControl = nil) then  //go to first item if reached end
    begin
      NextControl := TabList.GetItem(0);
    end;
    
    NextControl.SetFocus;
  end;
end;

下面是它的使用示例片段

procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  HandleEnterAsTab(Form1, Sender, Key);
end;

显然，您可以根据您的需要更改程序以不同方式工作，但我已尝试通过使用 TComponent 和 TForm 作为获取 TabList 的容器使其尽可能通用。