Discussion :

[mickael.be]

Salut,

Ben tout est dans le titrev :-)
Je cherche à drap/droper des éléments d'un DBGrid !


Merci de votre aide !

Mickael

[qi130]

....car déjà abordé dans ce forum

[mickael.be]

re,

Disons que je me suis trompé.. c'est pas un DBGrid, mais un StringGrid !

J'ai pas trouvé grand chose sur le forum, par contre ceci sur Google:

http://www.festra.com/wwwboard/messages/10053.html

Le problème viens du fait que ca marche, mais il ne "bouge" que la cellule qu'on à cliqué, et moi je voudrais bouger toute la ligne ...

GoRowSelected = True

Quelqu'un à ca dans le tirroir ?
Merci

[qi130]

moi je voudrais bouger toute la ligne ...

Ca c'est le drag.

Le drop, tu le fais où ?

[mickael.be]

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
47
48
49
50
51
52
53
54
 
 
implementation
 
{$R *.DFM}
 
var
  SourceCol, SourceRow: integer;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  { Set DragMode to Manual, to control entire drag & drop by code }
  SG.DragMode := dmManual; 
  { For testing purposes, fill a few cells }
  SG.Cells[2, 2] := 'A';
  SG.Cells[3, 2] := 'B';
  SG.Cells[4, 2] := 'C';
end;
 
procedure TForm1.SGMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  { Convert mouse coordinates X, Y to
    to StringGrid related col and row numbers }
  SG.MouseToCell(X, Y, SourceCol, SourceRow);
  { Allow dragging only if an acceptable cell was clicked
    (cell beyond the fixed column and row) }
  if (SourceCol > 0) and (SourceRow > 0) then
    { Begin dragging after mouse has moved 4 pixels }
    SG.BeginDrag(False, 4);
end;
 
procedure TForm1.SGDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  CurrentCol, CurrentRow: integer;
begin
  SG.MouseToCell(X, Y, CurrentCol, CurrentRow); // convert mouse coord.
  { Accept dragged stuff only if it came from StringGrid
    and the mouse is now over an acceptable region } 
  Accept := (Sender = Source) and
            (CurrentCol > 0) and (CurrentRow > 0);
end;
 
procedure TForm1.SGDragDrop(Sender, Source: TObject; X, Y: Integer);
var
  DestCol, DestRow: Integer;
begin
  SG.MouseToCell(X, Y, DestCol, DestRow); // convert mouse coord.
{ Move contents from source to destination }
  SG.Cells[DestCol, DestRow] := SG.Cells[SourceCol, SourceRow];
  if (SourceCol <> DestCol) or (SourceRow <> DestRow) then
    SG.Cells[SourceCol, SourceRow] := '';
end;

Beuuuuuh ???

[mickael.be]

sur les newsgroup:


http://groups.google.be/group/alt.co...b8b6213e960b8e

C'est tout ce que j'ai trouvé.. bouger une cellule ou une collone , mais jamais une ligne !! help :s