Discussion :

[bidochon]

bonjour,

je souhaite faire un glisser deposer du contenu d'un TEdit sur un champ d'un DBGrid.
Pas de probleme pour glisser le contenu du TEdit, mais lorsque je relache la souris sur le DBGrid, je voudrais que ce soit l'enregistrement pointé par la souris qui soit modifié, et non l'enregistrement actif comme c'est le cas.
comment faire ?

merci

[Cl@udius]

Salut

Je te propose cette solution.
Pendant le DragOver il suffit de forcer la sélection de l'enregistrement (et du champ) sous la souris. Ce qui permet à l'utilisateur de voir où il va déposer sa valeur.

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
 
procedure TForm1.DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  GridCoord: TGridCoord;
  newSelIndex, nCurrentRow: Integer;
begin
  // N'accepter le Drag que depuis le TEdit
  Accept := (Source is TEdit);
  if not Accept then Exit;
 
  // N° de la ligne actuellement sélectionnée
  nCurrentRow := TDrawGrid(Sender).Row;
 
  // Se déplacer vers l'enreg. survolé
  with TDBGrid(Sender) do begin
    // Position de la souris dans la grille
    GridCoord := MouseCoord(X, Y);
    // Sortir si en dehors d'une cellule
    if (GridCoord.X = -1) or (GridCoord.Y = -1) then Exit;
    // Colonne
    newSelIndex := GridCoord.X;
    if (dgIndicator in Options) then newSelIndex := newSelIndex - 1;
    if newSelIndex <> SelectedIndex then SelectedIndex := newSelIndex;
    // Ligne
    if nCurrentRow <> GridCoord.Y then
      DataSource.DataSet.MoveBy(GridCoord.Y - nCurrentRow);
  end;
end;

Et ensuite modifier l'enregistrement au moment du Drop

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
 
procedure TForm1.DBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  GridCoord: TGridCoord;
begin
  with TDBGrid(Sender) do begin
    // Position de la souris dans la grille
    GridCoord := MouseCoord(X, Y);
    // Sortir si en dehors d'une cellule
    if (GridCoord.X = -1) or (GridCoord.Y = -1) then Exit;
    // Editer le champ
    DataSource.DataSet.Edit;
    DataSource.DataSet.FieldByName(SelectedField.FieldName).Value := Edit1.Text;
    DataSource.DataSet.Post;
  end;
end;

L'astuce consiste surtout à récupérer le n° de la ligne sélectionnée. La propriété Row du DBGrid n'étant pas publiée, il suffit de transtyper le TDBGrid en TDrawGrid. (Expliqué dans la FAQ, merci Nono40 ).

A toi d'adapter le code au moment du Drop si le champ n'est pas de type String.

@+ Claudius

[bidochon]

Merci Claudius,
j'ai adapté les deux bouts de code et cela fonctionne tres bien.
Tu m'as enlevé une bonne epine du pied.

Bravo et merci