arrastrar

[Casimiro Noteví]

Por favor, recuerda poner títulos descriptivos a tus preguntas, "arrastrar" es poco descriptivo

[ecfisa]

Hola.

al piez del from tengo varios spedbuton que abren otros formularios, emplo anular, imprimir, y pagar. dentro de cada uno de ellos tengo un dbgrid. ahora bien. yo quisiera arrastrar el DBEDIT.TEXT hasta el boton y llenar con la informacion que se requiere el grid

Con un TSpeedButton lo veo complicado... no tiene implementado los eventos de Drag&Drop. Si se puede hacer sin mayores problemas si en su lugar utilizas un TBitBtn por ejemplo.

Saludos.

[gianfranco_tont]

Empezado por ecfisa

Hola.

Con un TSpeedButton lo veo complicado... no tiene implementado los eventos de Drag&Drop. Si se puede hacer sin mayores problemas si en su lugar utilizas un TBitBtn por ejemplo.

Saludos.

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

[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.

[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.