VCL控件含窗口式子控件时左键滚动被误判为Ctrl滚动的问题问询

该异常并非VCL框架的逻辑缺陷，是Logitech鼠标驱动行为与VCL消息路由机制叠加触发的问题：

• 驱动侧原因：Logitech MX Master系列鼠标默认开启「按住左键触发手势面板」功能，驱动会在用户按住左键的瞬间，向前台窗口注入虚拟Ctrl键按下消息，用来适配系统手势的识别逻辑；该状态仅存在于窗口消息队列中，不会真实修改全局物理按键的状态。
• VCL侧触发条件：当窗体仅包含无独立窗口句柄的控件（如TLabel）时，所有滚轮消息由主窗体直接接收，驱动注入的虚拟Ctrl状态不会被关联到滚轮事件的Shift参数中；当窗体新增带独立窗口句柄的子控件（如TButton）时，悬停在子控件区域触发的滚轮消息会经过Windows标准消息路由转发，将注入的虚拟Ctrl状态带入了VCL事件的Shift参数判断，最终导致按住左键滚动滚轮时，误触发预设的Ctrl+滚轮缩放逻辑。

• 驱动层源头修正
  打开Logitech Options/Options+配置面板，找到当前连接的MX Master鼠标的「手势按钮」配置项，将原本绑定到左键的手势触发功能，调整为绑定到鼠标侧键/中键，关闭按住左键触发手势的映射逻辑，从根源上杜绝驱动向窗口注入虚拟Ctrl状态的行为。
• 代码层逻辑加固
  不盲目依赖VCL事件传入的Shift参数，在执行缩放判断时，直接通过Windows API读取物理按键的真实全局状态做二次校验，避免被驱动注入的临时虚拟状态误导，参考实现如下：

  function TForm1.IsPhysicalCtrlPressed: Boolean;
  var
    KeyCheck: ShortInt;
  begin
    // 读取Ctrl键的全局物理按下状态，忽略消息注入的临时状态
    KeyCheck := GetKeyState(VK_CONTROL);
    Result := (KeyCheck and $8000) <> 0;
  end;
  
  procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  begin
    // 直接校验物理按键状态，替换原有的ssCtrl判断逻辑
    if IsPhysicalCtrlPressed then
      ZoomOut;
  end;
  
  procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  begin
    if IsPhysicalCtrlPressed then
      ZoomIn;
  end;
  

• 消息入口修正
  若需要批量兼容该场景，可在主窗体的消息处理流程中拦截WM_MOUSEWHEEL消息，当检测到滚轮事件对应的按键状态包含虚拟Ctrl标记，但系统全局Ctrl键并未真实按下时，手动清除消息参数中的Ctrl标记位，从消息入口修正参数错误。

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