Delphi Alexandria VCL程序无法识别非左键双击的问题求助

首先明确：VCL的OnDblClick事件基于Windows系统的WM_LBUTTONDBLCLK消息触发，而自定义鼠标通过滚轮/特殊按键触发的双击，大概率不会被系统识别为标准左键双击，因此无法触发现有代码里的DoDoubleClick。

针对你的问题，分两种场景处理：

场景1：可通过鼠标软件配置模拟标准左键双击 #

直接在罗技鼠标配置软件中，将滚轮/特殊按键的触发动作设置为左键双击。这样系统会发送标准的WM_LBUTTONDBLCLK消息，现有代码的OnDblClick就能正常响应，无需修改任何代码，这是最省心的方案。

场景2：无法模拟标准左键双击，需修改代码 #

这种情况下，你需要自己实现自定义按键的双击逻辑，无需在OnMouseUp处理，在OnMouseDown中判断即可，步骤如下：

1. 确定自定义按键对应的TMouseButton值
   罗技的特殊侧键通常对应mbXButton1或mbXButton2，你可以在CheckMouseDown中临时添加日志输出Button的值，确认自定义按键的枚举值。

2. 修改CheckMouseDown的按键判断逻辑
   允许自定义按键通过初始校验，比如：

   // 假设自定义按键是mbXButton1，保留原mbLeft的支持
   if (Button <> mbLeft) and (Button <> mbXButton1) or (not(fGridState in [gsNormal, gsSelecting])) then
     exit;
   

3. 添加双击判断逻辑
   在TWS_Grid类中添加私有成员变量，记录上次点击的信息：

   private
     FLastClickTime: DWORD;
     FLastClickCol: Integer;
     FLastClickRow: Integer;
     FLastClickButton: TMouseButton;
   

   然后在CheckMouseDown中加入双击判断：

   procedure TWS_Grid.CheckMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: integer);
   var
     ACol, AGridRow: integer;
     CurrentTime: DWORD;
   begin
     if (Button <> mbLeft) and (Button <> mbXButton1) or (not(fGridState in [gsNormal, gsSelecting])) then
       exit;
   
     // 获取当前点击的单元格行列
     MouseToCell(X, Y, ACol, AGridRow);
   
     CurrentTime := GetTickCount;
     // 匹配双击条件：按键相同、单元格相同、时间差小于系统双击阈值
     if (Button = FLastClickButton) and (ACol = FLastClickCol) and (AGridRow = FLastClickRow) and
        (CurrentTime - FLastClickTime < GetDoubleClickTime) then
     begin
       // 触发自定义双击事件
       if Assigned(On_DoubleClickCell) then
       begin
         On_DoubleClickCell(Self, ACol, AGridRow);
         just_double_clicked := true;
       end;
       // 重置记录，避免连续触发
       FLastClickTime := 0;
     end
     else
     begin
       // 记录本次点击信息
       FLastClickTime := CurrentTime;
       FLastClickButton := Button;
       FLastClickCol := ACol;
       FLastClickRow := AGridRow;
     end;
   
     // 原有业务代码...
   end;
   

回到你的问题：是否需要在OnMouseDown或OnMouseUp中统计点击次数？
答案是需要在OnMouseDown中记录点击的时间、位置和按键信息，通过判断两次点击的时间差和匹配条件来触发双击事件，不需要在OnMouseUp处理——因为点击动作的触发逻辑在MouseDown阶段就已完成。

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