如何在无固定列的Delphi TStringGrid中拖动行？

可以实现。默认goRowMoving仅允许在固定列触发行拖动，但通过拦截鼠标事件、手动调用TStringGrid的行拖动内部方法，就能在任意列（包括无固定列的场景）实现行拖动功能。

具体实现方案 #

推荐通过继承TStringGrid创建自定义组件，复用性更强：

1. 创建自定义StringGrid类，重写鼠标事件：

type
  TMyStringGrid = class(TStringGrid)
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  end;

implementation

procedure TMyStringGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  Col, Row: Integer;
begin
  inherited;
  // 仅处理左键，且启用了行拖动选项
  if (Button = mbLeft) and (goRowMoving in Options) then
  begin
    MouseToCell(X, Y, Col, Row);
    // 确保点击的是数据行（排除固定表头行）
    if Row >= FixedRows then
      BeginRowMove(Row); // 触发行拖动的起始逻辑
  end;
end;

procedure TMyStringGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  TargetRow: Integer;
  Col: Integer;
begin
  inherited;
  if (goRowMoving in Options) and (GetCapture = Handle) then
  begin
    MouseToCell(X, Y, Col, TargetRow);
    // 限制目标行为数据行
    if TargetRow >= FixedRows then
      UpdateRowMove(TargetRow); // 更新拖动过程中的行位置提示
  end;
end;

procedure TMyStringGrid.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if (Button = mbLeft) and (goRowMoving in Options) then
    EndRowMove; // 完成行拖动，执行行交换逻辑
end;

2. 使用自定义组件：
   • 将这个自定义类添加到组件面板，或直接在代码中创建实例
   • 确保组件的Options属性包含goRowMoving
   • 即使FixedCols设为0（无固定列），也能正常通过任意列拖动数据行

关键说明 #

• BeginRowMove、UpdateRowMove、EndRowMove是TStringGrid的保护方法，继承后可直接调用，封装了行拖动的核心逻辑
• 代码通过MouseToCell获取鼠标点击的行，只要是数据行就触发拖动，不限制列的位置
• 若不想创建自定义组件，也可在现有TStringGrid的OnMouseDown、OnMouseMove、OnMouseUp事件中实现类似逻辑，需通过类型转换绕过保护方法的访问限制

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