如何为TTabControl实现自定义OnKeyDown事件以响应Ctrl+右箭头？

TTabControl本身没有暴露OnKeyDown事件，但可以通过以下几种方式实现需求：

方法一：利用窗体的KeyPreview捕获按键 #

1. 先将窗体的KeyPreview属性设置为True，确保窗体优先接收按键事件。
2. 给窗体添加OnKeyDown事件，在事件中编写逻辑：

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  // 检查焦点是否在TTabControl上，且按下了Ctrl+右箭头
  if (TabControl1.Focused) and (Key = VK_RIGHT) and (ssCtrl in Shift) then
  begin
    if TabControl1.Tabs.Count > 0 then
      TabControl1.TabIndex := TabControl1.Tabs.Count - 1;
    Key := 0; // 标记按键已处理，避免触发默认的标签切换行为
  end;
end;

方法二：重写TTabControl的消息处理（更精准） #

这种方法直接针对TTabControl的消息循环，无需依赖窗体的KeyPreview：

1. 在窗体类的private段声明自定义的消息处理过程：

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    procedure FormCreate(Sender: TObject);
  private
    procedure TabControlCustomWndProc(var Message: TMessage);
  public
    { Public declarations }
  end;

2. 实现自定义消息处理过程：

procedure TForm1.TabControlCustomWndProc(var Message: TMessage);
begin
  if Message.Msg = WM_KEYDOWN then
  begin
    // 判断是否按下Ctrl+右箭头
    if (Message.WParam = VK_RIGHT) and (GetKeyState(VK_CONTROL) < 0) then
    begin
      if TabControl1.Tabs.Count > 0 then
        TabControl1.TabIndex := TabControl1.Tabs.Count - 1;
      Exit; // 跳过默认消息处理
    end;
  end;
  // 调用控件原有的消息处理逻辑处理其他消息
  TabControl1.DefaultHandler(Message);
end;

3. 在窗体的OnCreate事件中替换TTabControl的消息处理函数：

procedure TForm1.FormCreate(Sender: TObject);
begin
  TabControl1.WindowProc := TabControlCustomWndProc;
end;

这两种方法都能实现需求，方法二更专注于TTabControl本身，不会影响其他控件的按键处理。

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