DragDrop faire un shape qui suit la souris

**matech** · 15/04/2006, 17h21

Voila je suis un peu débutant en drag & drop
J'ai déjà réussi à faire des déplacement simple
Mais j'aimerais savoir comment effectuer un déplacement d'un élément de type shape avec un effet de trasparence
C'est à dire : je sélectionne mon shape il bouge pas de sa place jusqu'à ce que je finisse le déplacement mais je souhaiterais qu'une copie de ce shape avec transparence suive le curseur de la souris
J'ai essayer de trouver des sources sur la FAQ les sources et les forums mais je n'ai trouvé aucun exemple vraiment concret et claire

QQ'un pourrais m'aider ?

**denokan** · 15/04/2006, 18h45

quand tu cliques sur la souris, tu dois créer un TShape de la forme souhaitée (brush, pen, etc) qui suivra le mouvement de la souris.
quand tu lache le bouton, tu replace le TShape à déplacer à la bonne position, puis tu détruis le TShape utilisé pour simuler le mouvement

dans cette exemple j'utilise un second TShape déposé sur ma form, et je l'ai nomé FCopie

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
 
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Shape1MouseMove(Sender, Shift, X, Y);
  FCopie.Visible := True;
end;
 
procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FCopie.Visible:=False;
  Shape1.Left := FCopie.Left;
  Shape1.Top := FCopie.Top;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then begin
    FCopie.Left := X;
    FCopie.Top := Y;
  end;
end;
 
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  FormMouseMove(Sender, Shift,
                X + (Sender as TShape).Left,
                Y + (Sender as TShape).Top);
end;

voilà c pas terminé mais c la voie à suivre