Примеры использования Drag and Drop для различных визуальных компонентов

Code:

var

ACol, ARow, c, r: Integer;

GR: TGridRect;

begin

StringGrid1.MouseToCell(X, Y, ACol, ARow);

if Source = StringGrid1 then

   with StringGrid1 do

   begin

     Cells[Acol, Arow] := Cells[Col,Row];

//копируем ячейку-источник в приемник

     if Tag = 1 then

       Cells[Col,Row] := '';

// очищаем источник, если было нажато Alt

     Tag := 0;

   end;

Code:

if Button = mbRight then StringGrid2.BeginDrag(True);

Code:

if Source = StringGrid2 then

begin

   GR := StringGrid2.Selection;

// Selection - выделенные в StringGrid2 ячейки

   for r := 0 to GR.Bottom - GR.Top do

     for c := 0 to GR.Right - GR.Left do

       if (ACol + c < StringGrid1.ColCount) and

         (ARow + r < StringGrid1.RowCount) then

// застрахуемся от записи вне StringGrid1

         StringGrid1.Cells[ACol + c, ARow + r] :=

           StringGrid2.Cells[c + GR.Left, r + GR.Top];

end;

Code:

Accept := (Source = StringGrid2) or (Source = DBGrid1);

Code:

var

c, r: integer;

s: string;

begin

Memo2.Clear;

if Source = StringGrid2 then

   with StringGrid2 do

     for r := Selection.Top to Selection.Bottom do

     begin

       s := '';

       for c := Selection.Left to Selection.Right do

         s := s + Cells[c, r] + #9;

// разделим ячейки табуляцией

       memo2.lines.add(s);

     end