Cita:
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, []);
end;
...
En el ejemplo supuse dos
TDataSet, pero podría ser el mismo, eso depende de como desees implementarlo.
Saludos.