[Delphi 7] TStringGrid >> Drag and Drop

Bonjour à toutes et à tous,

Voici mon souci :

A partir d'une TstringGrid, je souhaiterais déplacer la valeur d'une colonne sélectionnée vers un mémo en utilisant la méthode Drag and Drop...

Pour ce qui est de la méthode, ça c'est ok (vu dans l'aide delphi) et testé dans une autre appli. (déplacement des éléments d'une TListBox vers une TTreeView), MAIS avec une TstringGrid, quand j'active dans un 1er temps la propriété DragMode = dmAutomatic , je ne peux plus faire de sélection dans ma grille.... (à ce stade là je n'ai encore pas codé, juste changé la propriété)

Dans l'attente, de vos réponses qui toutes, seront les bienvenues.
Merci d'avance.

pour info (Dephi 7 - Win XP)

DragMode, c'est pour la source (ce que tu fais glisser) ;)

Demonstration :
- Une Fiche
- Un StringGrid
- Deux Labels (DragMode=dmAutomatic)

Coté réception du glissé déposé, ça se passe comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

//OnDragOver du StringGrid procedure TForm1.StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin //On autorise le déposé de Labels et de rien d'autre if (source is TLabel) then Accept:=true; end;   //OnDragDrop du StringGrid (Le déposé à été autorisé dans l'évènement // OnDragOver) procedure TForm1.StringGrid1DragDrop(Sender, Source: TObject; X, Y: Integer); var CellX,CellY:integer; begin //taransforme les coordonnées de la souris en coordonnées "Grille" StringGrid1.MouseToCell(x,y,CellX,CellY); //Mise à jour de la cellule visée if (source is TLabel) then StringGrid1.Cells[CellX,CellY]:=(source as TLabel).Caption; end;

---

Quand tu glisses les labels sur la stringgrid, le caption du TLabel que tu glisses est copié dans la cellue visée par la souris.

Voilà, voilà ;)