Пример Drag and Drop между двумя DBGRID

Code:

// Форма GridU1

object Form1: TForm1

Left = 200

   Top = 108

   Width = 544

   Height = 437

   Caption = 'Form1'

   Font.Charset = DEFAULT_CHARSET

   Font.Color = clWindowText

   Font.Height = -11

   Font.Name = 'MS Sans Serif'

   Font.Style = []

   PixelsPerInch = 96

   TextHeight = 13

   object MyDBGrid1: TMyDBGrid

   Left = 8

     Top = 8

     Width = 521

     Height = 193

     DataSource = DataSource1

     Row = 1

     TabOrder = 0

     TitleFont.Charset = DEFAULT_CHARSET

     TitleFont.Color = clWindowText

     TitleFont.Height = -11

     TitleFont.Name = 'MS Sans Serif'

     TitleFont.Style = []

     OnDragDrop = MyDBGrid1DragDrop

     OnDragOver = MyDBGrid1DragOver

     OnMouseDown = MyDBGrid1MouseDown

end

object MyDBGrid2: TMyDBGrid

   Left = 7

     Top = 208

     Width = 521

     Height = 193

     DataSource = DataSource2

     Row = 1

     TabOrder = 1

     TitleFont.Charset = DEFAULT_CHARSET

     TitleFont.Color = clWindowText

     TitleFont.Height = -11

     TitleFont.Name = 'MS Sans Serif'

     TitleFont.Style = []

     OnDragDrop = MyDBGrid1DragDrop

     OnDragOver = MyDBGrid1DragOver

     OnMouseDown = MyDBGrid1MouseDown

end

object Table1: TTable

   Active = True

     DatabaseName = 'DBDEMOS'

     TableName = 'ORDERS'

     Left = 104

     Top = 48

end

object DataSource1: TDataSource

   DataSet = Table1

     Left = 136

     Top = 48

end

object Table2: TTable

   Active = True

     DatabaseName = 'DBDEMOS'

     TableName = 'CUSTOMER'

     Left = 104

     Top = 240

end

object DataSource2: TDataSource

   DataSet = Table2

     Left = 136

     Top = 240

end

end