Dragdrop de TImage

Version imprimable

30/08/2012, 09h33
Invité

Dragdrop de TImage

Bonjour,

J'ai un TImage et TPanel en dragmod "Manual" et ceci dans les procedures de mon image et de mon panel:
image.MouseDown > BeginDrag(false);
panel.dragover > Accept := (Source = image);
panel.dragdrop > image.enddrag(true);

Quand je prends mon image j'ai bien le curseur de dragdrop mais l'image ne bouge pas :(

Pouvez vous m'aider?

Merci

Bonjour,

Citation:

Envoyé par retwas

Quand je prends mon image j'ai bien le curseur de dragdrop mais l'image ne bouge pas :(

Ben oui, "lâcher" l'image ne suffit pas, il faut aussi lui indiquer où elle "tombe"... :lol:
Code:

1 2 3 4 5 6 7 8 9 procedure TMaForm.PanelDragDrop(Sender, Source: TObject; X, Y: Integer); begin Image.EndDrag(True); // C'est le Parent qui est responsable de l'affichage => le panel. // C'est sur le panel que se produit l'évènement, les coordonnées lui correspondent Image.Parent := Panel; Image.Left := X; Image.Top := Y; end;

02/09/2012, 21h40
Invité

Merci par contre je me suis trompé de forum.. je suis en firemonkey et je n'est pas de begindrag? du coup je dois faire comment?

Citation:

Envoyé par retwas

Merci par contre je me suis trompé de forum.. je suis en firemonkey et je n'est pas de begindrag? du coup je dois faire comment?

Vous manquez de curiosité... :recherch::google:
A la question "Firemonkey drag drop", la 2° réponse apporte une solution détaillée !

A minima (cad qu'il n'y a aucune vérification sur le bien fondé des contrôles déplacés), on aurait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 // Dans le concepteur de fiche, le composant Image à sa propriété DragMode initialisée à dmAutomatic ! procedure TMaForm.PanelDragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Accept: Boolean); begin Accept := True; end; procedure TMaForm.PanelDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); begin Image.Parent := Panel1; Image.Position.X := Point.X - Image.Width / 2; Image.Position.Y := Point.Y - Image.Height / 2; end;

03/09/2012, 12h37
Invité

Le fait que ce soit un objet crée dynamiquement, je ne rentre pas dans le dragdrop de mon TPanel :calim2:

Citation:

Envoyé par retwas

Le fait que ce soit un objet crée dynamiquement, je ne rentre pas dans le dragdrop de mon TPanel :calim2:

Eh bien, il suffit lors de la création de ces composants, d'initialiser la propriété DragMode, d'affecter une procédure d'évènement aux évènements pertinents des composants concernés...
Cf. l'exemple suivant (à partir d'une fiche vide):

Code:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure PanelDragOver(Sender: TObject; const Data: TDragObject;
      const Point: TPointF; var Accept: Boolean);
    procedure PanelDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TPanel.Create(Self) do
  begin
    Parent := Self;
    Position.X := 8;
    Position.Y := 8;
    Width := 200;
    Height := 100;
    OnDragOver := PanelDragOver;
    OnDragDrop := PanelDragDrop;
  end;
  with TImageControl.Create(Self)do
  begin
    Parent := Self;
    Position.X := 216;
    Position.Y := 8;
    Width := 40;
    Height := 40;
    DragMode := dmAutomatic;
    Bitmap.LoadFromFile('monbitmap.jpg'); // à modifier !
  end;
end;
 
procedure TForm1.PanelDragOver(Sender: TObject; const Data: TDragObject;
  const Point: TPointF; var Accept: Boolean);
begin
  Accept := True; // à améliorer car actuellement aucun contrôle sur la validité de l'opération
end;
 
procedure TForm1.PanelDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
var
  Panel: TPanel;
  Image: TImageControl;
begin
  // On est bien sur le panel et c'est bien une image ?
  if (Sender is TPanel) and (Data.Source is TImageControl) then
  begin
    Panel := TPanel(Sender);
    Image := TImageControl(Data.Source);
    Image.Parent := Panel;
    Image.Position.X := Point.X - Image.Width / 2;
    Image.Position.Y := Point.Y - Image.Height / 2;
  end;
end;
 
end.

03/09/2012, 21h17
Invité

C'est presque ce que j'ai (sauf que mon Panel est posé sur ma fiche et non crée dynamiquement), et avec cela je ne passe pas dans la propriété DragDrop de mon TPanel quand je drag mon image.. :(

Je vois bien mon image "fantome" mais quand je pose, rien du tout :calim2:
03/09/2012, 23h46
Ph. B.
Citation:

Envoyé par retwas

C'est presque ce que j'ai (sauf que mon Panel est posé sur ma fiche et non crée dynamiquement), et avec cela je ne passe pas dans la propriété DragDrop de mon TPanel quand je drag mon image.. :(

Je vois bien mon image "fantome" mais quand je pose, rien du tout :calim2:

Vérifiez tout votre code :? !
1. L'initialisation de la propriété DragMode à dmAutomatic pour le composant TImageControl que vous créez dynamiquement
2. L'affectation des événements OnDragOver et OnDragDrop au TPanel que vous créez statiquement (=dans le concepteur de fiches)
Inspirez vous de l'exemple que je vous ai passé... Il n'y a pas de raison pour que cela ne fonctionne pas.