drap drop y guardar los movimientos

[ecfisa]

Hola koiji y bienvenido a Club Delphi

Como a todo aquél que comienza a participar te invitamos a que leas nuestra guía de estilo

el asunto del drap drop me gustaria saber como funciona

En referencia a esa consulta, te pongo un ejemplo con un TEdit y un TMemo:

Código Delphi [-]
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.BeginDrag(True);
end;

procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:= Source is TEdit;
end;

procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  Memo1.Text:= (Source as TEdit).Text;
end;

Fijate que al pié de la página tenés enlaces relacionados con tu consulta, también podes realizar busquedas con el término "Drag&Drop" para ampliar.

Saludos.