TControlList右键点击不更新ItemIndex 如何实现右键绑定对应列表项弹出菜单

这个行为是TControlList的原生设计逻辑：默认只有左键点击才会触发选中状态切换、同步更新ItemIndex属性，右键触发弹出菜单时完全不改动原有选中项，并不是你配置TPopupMenu的过程中出现了设置错误。

想要让右键点击的响应逻辑和左键完全对齐，不需要修改组件源码，只需要在PopupMenu正式弹出前，把鼠标实际点击位置对应的列表项设置为当前选中项即可。

实现步骤 #

• 给目标TControlList组件绑定OnMouseDown事件
• 在事件逻辑中，通过组件自带的GetItemAtPoint方法，将当前鼠标点击的控件客户区坐标转换为对应列表项的索引值
• 当检测到右键点击落在有效列表项范围内时，直接将转换得到的索引赋值给ItemIndex，完成选中状态的同步

参考实现代码 #

procedure TMainForm.ControlListMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ClickedItemIdx: Integer;
begin
  // 仅处理右键点击场景
  if Button = mbRight then
  begin
    // 获取当前鼠标坐标对应的列表项索引，点在空白区域时返回-1
    ClickedItemIdx := ControlList.GetItemAtPoint(X, Y);
    // 仅当点击落在有效列表项上时更新选中状态
    if ClickedItemIdx >= 0 then
    begin
      ControlList.ItemIndex := ClickedItemIdx;
      // 触发控件重绘，让选中高亮状态即时刷新
      ControlList.Invalidate;
    end;
  end;
end;

• 时机选择：优先在OnMouseDown事件中处理状态同步，而非在TPopupMenu的OnPopup事件中处理。前者的触发时机早于菜单弹出的完整流程，不会出现“菜单已经弹出、选中状态才缓慢更新”的视觉割裂感，和左键点击的交互时机完全一致
• 空白区域兼容：通过GetItemAtPoint的返回值做判断，避免右键点击列表空白区域时随意切换选中项，符合常规列表组件的交互预期
• 自定义适配：如果使用了带自绘逻辑的TControlList子类，这套逻辑完全兼容——GetItemAtPoint是组件基类提供的坐标转索引的标准方法，和自绘渲染逻辑没有冲突

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