Drag and Drop entre DBGrids

[pborges36]

muchas gracias gluglu, Hice lo que dijiste y funciona, solo un detalle: Para arrastrar debo hace click en la parte vacia del DBGrids, si hago click sobre un registro no hace nada. Para mi que tiene algo que ver con alguna propiedad del DBGrid. Puede ser?

[[gluglu]]

Pues tienes razón. No lo había probado con el TDBGrid normal.

Resulta que tengo un DBGrid mínimamente modificado para poder hacer selecciones múltiples en el DBGrid con Shift. Esto ya lo comenté en su día aqui.

Para ello me he tenido que derivar mi propio DBGrid que me permite MultiSelección.

Aquí tienes el código :

Código Delphi [-]
unit DBMultiSelectGrid;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids;
 
type

  TDBMultiSelectGrid = class(TDBGrid)
  private
    { Private declarations }
    FOnMouseDown: TMouseEvent;
  protected
    { Protected declarations }
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  published
    { Published declarations }
    property Row;
    property OnMouseDown read FOnMouseDown write FOnMouseDown;
  end;
 
procedure Register;
 
implementation
 
procedure TDBMultiSelectGrid.MouseDown(Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Assigned(FOnMouseDown) then
    FOnMouseDown(Self, Button, Shift, X, Y);
  inherited MouseDown(Button, Shift, X, Y);
end;
 
procedure Register;
begin
  RegisterComponents('Data Controls', [TDBMultiSelectGrid]);
end;
 
end.

Como podrás observar, redefino el evento OnMouseDown. De esta manera funciona. No sabría ahora mismo como hacerlo sin derivar tu propio componente DBGrid particular como lo he indicado.

Por otro lado me he dado cuenta con tu indicación que con el DBGrid normal y estandar no funciona.

Saludos.

[[gluglu]]

Por qué hacerlo fácil se si puede hacer complicado, no es verdad ?

Todo mi comentario anterior se puede olvidar y resumir el asunto en esto :

Código Delphi [-]
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
  DBGrid1.BeginDrag(False,10);
end;

[Paoti]

wow gluglu, felicidades...

y si, en el dobliclick seria incongruente...

buena respuesta

[pborges36]

Efectivamente, gluglu, eso es lo que necesitaba. Funciona a la perfeccion. Muchas Gracias!!