Discussion :

[Stef.web]

Bonjour,

Je cherche à faire un drag&drop d'une ligne d'un dbGrid pour la copier sur un autre StringGrid.
Le problème c'est que si je suis en DMautomatique, le click n'est pas pris en compte et je n'est donc pas de selection valide.
j'ai essayé plusieur options mais sans succes. Le click droit quant à lui fonctionne mais l'application est prévue pour tourner avec un tactile.

Si quelqu'un à une idée ou à déjà eu le problème.

Merci par avance.

[Stef.web]

Toujours rien?

Existe t-il peut-être un compo TDBGrid (même payant) pour faire du drag&drop?

[Pierre Castelain]

Tu devrais pouvoir t'en sortir en utilisant ce genre de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
    mx, my: Integer;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  mx:= X;
  my:= Y;
end;
 
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if (ssLeft in Shift) and (not StringGrid1.Dragging) and
    ((Abs(X -mx) > 10) or (Abs(Y - my) > 10)) then
    StringGrid1.BeginDrag(true);
end;
 
end.

Le principe est de n'appeler BeginDrag que lorsque l'utilisateur à bougé la souris de plus de n pixels (ici 10). Il faut bien sur que la propriété DragMode soit positionnée à dmManual.

[Stef.web]

Ca a l'air de fonctionner mais bizarement l'évenement OnMouseDown ne fonctionne pas!

[Stef.web]

En fait l'evenement à bien lieu mais il n'est effectif que sur le titre de la colone !!!

Es-ce normale?

[Pierre Castelain]

Effectivement, j'ai fait mon exemple avec un TStringGrid qui ne pose pas de problème alors que le TDBGrid ne semble pas gérer totalement l'évènement OnMouseDown. Peut-être peux-tu te brancher sur un autre évènement (OnCellClick par exemple).

[Stef.web]

J'ai trouvé une solution, car OnCellClick ne fonctionne qu'au relachement du boutton.

Merci pour ta solution Pierre, car en combinant les deux bout de code, ça marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TMain.ListGridMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  // Scan X/Y en permanance si il n'y a pas de click gauche.
  if not(ssLeft in Shift) then
  Begin
       mx:= X;
       my:= Y;
  End;
 
  // au click gauche, test le déplacement de la souris (début de drag)
  if (ssLeft in Shift) and (not ListGrid.Dragging) and
    ((Abs(X -mx) > 10) or (Abs(Y - my) > 10)) then
        ListGrid.BeginDrag(true);
end;

Merci .