arrastrar

[ecfisa]

Originally Posted by 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.

[gianfranco_tont]

excelente, de verdad usted son grandes. Ahora el unico problema que tengo es que al moverlo hasta el bitbutoon me aperece una imagen de un circulo con una linea en el centro. la idea que se mueva y muestre el dbedit1 por todo el recorrido.