Fórum Drag and drop em Stringgrid Será que ninguém pode me ajudar? #169633

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid2DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure StringGrid2DragDrop(Sender, Source: TObject; X, Y: Integer);
  private
    SourceRow: Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  ACol, ARow: Integer;
begin
  with TStringGrid(Sender) do
  begin
    BeginDrag(False, 3);
    MouseToCell(X, Y, ACol, ARow);
    SourceRow := ARow;
  end;
end;

procedure TForm1.StringGrid2DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept := (Source is TStringGrid) and (Source <> Sender);
end;

procedure TForm1.StringGrid2DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  ACol, ARow: Integer;
begin
  TStringGrid(Sender).RowCount := TStringGrid(Sender).RowCount + 1;
  ARow := Pred(TStringGrid(Sender).RowCount);

  for ACol := 0 to Pred(TStringGrid(Source).ColCount) do
    TStringGrid(Sender).Cells[ACol, ARow] := TStringGrid(Source).Cells[ACol, SourceRow];
end;

end.

object Form1: TForm1
  Left = 240
  Top = 133
  Width = 696
  Height = 480
  Caption = ´Form1´
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ´MS Sans Serif´
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StringGrid1: TStringGrid
    Left = 12
    Top = 16
    Width = 597
    Height = 157
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
    TabOrder = 0
    OnDragDrop = StringGrid2DragDrop
    OnDragOver = StringGrid2DragOver
    OnMouseDown = StringGrid1MouseDown
  end
  object StringGrid2: TStringGrid
    Left = 12
    Top = 196
    Width = 597
    Height = 161
    TabOrder = 1
    OnDragDrop = StringGrid2DragDrop
    OnDragOver = StringGrid2DragOver
    OnMouseDown = StringGrid1MouseDown
  end
end