Drag & Drop dans un même DBGrid [Résolu]

[drake56]

Bonjour,

Je souhaiterai mettre en place un sytème de Drag & Drop dans un même DBGrid pour modifier l'ordre des pièces.
Par exemple, si j'ai 2 lignes et que je mets la 1ère à la place de la 2ème, je souhaiterai échanger leurs id.
J'avais trouvé un exemple mais je bloque à la fin, je pense il faudrait que je fasse un update mais il faudrait que je fasse un refresh aussi enfin voilà le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TF_Operation.CRDB_PiecesDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var gc     : TGridCoord;
    ordre  : Integer;
begin
  gc := CRDB_Pieces.MouseCoord(X,Y);
  if (gc.X > 0) AND (gc.Y > 0) then
  begin
    if DM_Operation.Q_ChargerPiecesOpe.RecordCount = 0 then exit;
 
    ordre := DM_Operation.Q_ChargerPiecesOpePIE_ID.AsInteger;
   { with CRDB_Pieces do
    begin
      DataSource.DataSet.MoveBy (gc.Y - Row);
      DataSource.DataSet.Edit;
      Columns.Items[-1 + gc.X].Field.AsInteger := ordre;
    end;  }
  end;
end;

Merci d'avance pour votre aide

[Ph. B.]

Bonjour,

Envoyé par drake56

Je souhaiterai mettre en place un sytème de Drag & Drop dans un même DBGrid pour modifier l'ordre des pièces.
Par exemple, si j'ai 2 lignes et que je mets la 1ère à la place de la 2ème, je souhaiterai échanger leurs id.

Changer l'ID n'est pas un geste anodin contrairement à changer une valeur d'une colonne qui sert à ordonner l'affichage dans une grille. Cela a des impacts sur la table de la base de données sous jacente et des tables qui peuvent y être liées via une clé étrangère !!!
C'est une opération qui doit être murement réfléchie car mal faite, elle peut aboutir à mettre une pagaille monstre dans la base de données !

Envoyé par drake56

J'avais trouvé un exemple mais je bloque à la fin,
je pense il faudrait que je fasse un update mais il faudrait que je fasse un refresh aussi enfin voilà le code :

Code :

L'exemple dont vous avez tiré ce code s'appuyait sur un descendant du composant TDBGrid, un THackDBGrid qui faisait passer la propriété Row du statut protégé au statut public et pour des données provenant d'un autre composant. C'est donc inapplicable en l'état...

[drake56]

Bonjour,

Merci pour votre réponse, finalement j'ai créé un nouveau champ qui gère l'ordre puis vu que je n'ai pas réussi à faire de drag & drop, j'ai contourné le problème en mettant un TEdit modifiable dans mon Grid.