Delphi FireMonkey TTabControl禁用左右箭头切换标签页的实现方案

方法1：为每个TTabItem绑定OnKeyDown事件拦截按键 #

FireMonkey的TTabItem自带OnKeyDown事件，你可以遍历TTabControl的所有标签页，给每个TTabItem绑定事件处理逻辑，拦截无Ctrl键配合时的左右箭头切换行为：

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to TabControl1.TabCount - 1 do
    TabControl1.Tabs[I].OnKeyDown := TabItemKeyDown;
end;

procedure TForm1.TabItemKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  // 仅当未按下Ctrl键时，拦截左右箭头
  if (ssCtrl not in Shift) and (Key in [VK_LEFT, VK_RIGHT]) then
  begin
    Key := 0;
    KeyChar := #0;
  end;
end;

这种方法无需自定义控件，直接在表单初始化时绑定事件即可，操作简单高效。

方法2：使用类助手扩展TTabItem（全局生效，无需安装控件） #

如果不想逐个绑定事件，可以用类助手重写TTabItem受保护的KeyDown方法，让所有TTabItem自动应用拦截逻辑：

unit TabItemHelper;

interface

uses
  FMX.TabControl;

type
  TTabItemHelper = class helper for TTabItem
  protected
    procedure KeyDown(var Key: Word; var KeyChar: Char; Shift: TShiftState); override;
  end;

implementation

procedure TTabItemHelper.KeyDown(var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  // 仅允许带Ctrl键的箭头操作，否则拦截
  if (ssCtrl not in Shift) and (Key in [VK_LEFT, VK_RIGHT]) then
  begin
    Key := 0;
    KeyChar := #0;
    Exit;
  end;
  // 调用原方法处理合法按键（如Ctrl+箭头、Ctrl+Tab组合键）
  inherited;
end;

end.

只需在项目中引用这个单元，所有TTabItem都会自动生效，无需额外配置。

针对你的疑问解答 #

你不需要必须通过创建继承控件来实现需求，上面两种方法都能在不自定义控件的情况下达成目标。FireMonkey确实没有VCL的KeyPreview属性，但通过直接拦截TTabItem的按键事件或使用类助手，完全可以实现类似的按键预处理效果。

内容的提问来源于stack exchange，提问作者Peter Jones