Fórum dragdrop de dbgrid para edit #307916

procedure TFrmDragDrop.DBGrid1EndDrag(Sender, Target: TObject; X,
  Y: Integer);
begin
  if Target <> nil then
  begin // trata o fim de uma operacao que foi aceita
    // interrompe se havia algum filme
    // muda o filme
    Edit1.Text := Titulo;
  end;
end;

procedure TFrmDragDrop.DBGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Sender = DbGrid1) and (Button = mbLeft) then
    DbGrid1.BeginDrag(False); // inicia a operacao
end;

procedure TFrmDragDrop.DBGrid1TitleClick(Column: TColumn);
begin
   //Declare a variavel Titulo como Publica
   Titulo := Column.FieldName;
end;

procedure TFrmDragDrop.Edit1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if Source = DbGrid1 then
    DbGrid1.EndDrag(True); // comanda o final da operacao
end;

procedure TFrmDragDrop.Edit1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if Source = DbGrid1 then
    Accept := True; // aceita se vier da lista
end;