arrastrar

[ecfisa]

Empezado por gianfranco_tont

tienes algun codigo de ejemplo como hacerlo de verdad que no tengo ni idea de donde comenzar.

Hola.

No tengo nada hecho pero te hice un ejemplo rápido y muy simple como para que te oriente. Usa dos TForm un TDBEdit y un TBitBtn:

Form1:

Código Delphi [-]
...
uses Unit2; 

procedure TForm1.DBEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TDBEdit(Sender).BeginDrag(False);
end;

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

procedure TForm1.BitBtn1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  with TForm2.Create(Self) do
  try
    ValorCampo:= TDBEdit(Source).Field.AsString;
    ShowModal;
  finally
    Free;
  end;
end;
...

Form2:

Código Delphi [-]
...
var
  Form2: TForm2;
  ValorCampo: string;

implementation  {$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  DataSet2.Open;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  DataSet2.Locate('NUMERO_FACTURA', ValorCampo, []);
  {
   Aquí ya estas posicionado en el registro deseado,
   podés hacer lo que quieras con los campos de él
  }
end;
...

En el ejemplo supuse dos TDataSet, pero podría ser el mismo, eso depende de como desees implementarlo.

Saludos.