VCL StringGrid拖拽时右键点击未取消操作问题求助

核心思路 #

通过子类化TStringGrid，结合重写DragCanceled方法与捕获右键点击消息，标记拖拽取消状态，最终在DragDrop事件中判断是否执行行交换逻辑。

实现步骤 #

1. 子类化TStringGrid
   新增布尔字段记录拖拽取消状态，重写DragCanceled方法，并处理右键点击消息以主动取消拖拽。

   type
     TCustomStringGrid = class(TStringGrid)
     private
       FDragCanceled: Boolean;
       procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN;
     protected
       procedure DragCanceled; override;
     public
       property DragCanceled: Boolean read FDragCanceled write FDragCanceled;
     end;
   

2. 实现子类方法

   • DragCanceled：重写此方法标记拖拽已取消
   • WMRButtonDown：拖拽过程中收到右键点击时，主动取消拖拽并标记状态

   procedure TCustomStringGrid.DragCanceled;
   begin
     inherited;
     FDragCanceled := True;
   end;
   
   procedure TCustomStringGrid.WMRButtonDown(var Message: TWMRButtonDown);
   begin
     if Dragging then
     begin
       CancelDrag;
       FDragCanceled := True;
     end;
     inherited;
   end;
   

3. 修改DragDrop事件逻辑
   在原有的行交换代码前，先检查取消状态，若已取消则重置状态并退出，不执行交换操作。

   procedure TForm1.CustomStringGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
   var
     DropRow, DragRow: Integer;
   begin
     // 检查拖拽是否被取消
     if TCustomStringGrid(Sender).DragCanceled then
     begin
       TCustomStringGrid(Sender).DragCanceled := False;
       Exit;
     end;
   
     // 原有行交换逻辑
     DragRow := TCustomStringGrid(Source).Row;
     DropRow := TCustomStringGrid(Sender).MouseToCell(X, Y).Y;
     if (DragRow <> -1) and (DropRow <> -1) and (DragRow <> DropRow) then
     begin
       TCustomStringGrid(Sender).Rows[DragRow].Exchange(TCustomStringGrid(Sender).Rows[DropRow]);
       TCustomStringGrid(Sender).Row := DropRow;
     end;
   end;
   

说明 #

• 重写DragCanceled是利用VCL预留的拖拽取消回调，确保任何触发拖拽取消的操作都能标记状态
• 捕获WM_RBUTTONDOWN消息是为了在拖拽过程中响应右键点击，主动调用CancelDrag终止拖拽流程
• 每次DragDrop后重置取消状态，避免影响下一次拖拽操作

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