Componente de arrastrar

[ecfisa]

Hola Gianfranco.

Si ahora te entiendo perfectamente, pero creo sería mas apropiado usar un componente que pueda mostrar texto y recibir Drag&Drop independientemente de los cambios del TDataSet.

Puede ser cualquiera de tu gusto, te pongo un ejemplo simple que usa un TStaticText:

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

procedure TForm1.StaticText1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  with DBImage1.DataSource.DataSet do
    StaticText1.Caption:= FieldByName('Campo1').AsString + ' '+
      FieldByName('Campo2').AsString+' '+FieldByName('Campo3').AsString +' '+
      ...;

end;

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

Saludos.