Discussion :

[Lung]

Comment faire du drag-drop en FMX ?

Voici mon exemple :
J'ai des TRectangle alignés dans un TLayout.
Je souhaiterais les intervertir avec un glisser-déposer.

Mes rectangles à déplacer ont leur DragMode à dmAutomatic.
Le layout parent a son DragMode à dmManual, et les évènements DragOver et DragDrop.

A l'exécution, je peux démarrer le glisser des rectangles, mais les évènements DragOver et DragDrop ne se déclenchent pas.
J'ai comparé avec l'exemple de Paul (http://lookinside.free.fr/delphi.php?FMXBasedDragDrop), mais je ne vois pas ce que j'ai fait de différent (au niveau des DragMode et des évènements). Le pire, c'est que son projet compile et fonctionne bien.

[Paul TOTH]

Salut,

je n'ai pas testé mon code depuis un moment, mais je sais qu'il y a eu des changements, notamment car maintenant AddPlatformService() lève une exception au lieu d'ignorer le code si un gestionnaire existe déjà (si mon souvenir est bon).

sinon tu n'as pas oublié de désactiver le HitTest ? sinon la souris est sur le composant déplacé et le DragOver ne fonctionne pas (cf MouseMove)

[Lung]

sinon tu n'as pas oublié de désactiver le HitTest ? sinon la souris est sur le composant déplacé et le DragOver ne fonctionne pas (cf MouseMove)

Je ne comprend pas bien.
J'ai essayé, et cette fois il ne se passe plus rien du tout : le glisser ne démarre même plus. Ca me semble logique, puisque sans HitTest, je ne peux plus agir sur les rectangles.

Voici où j'en suis :

3 TRectangles dans un TLayout.

Mon code (qui est un copier-coller du tien) :

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
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  FMousePos.X := X;
  FMousePos.Y := Y;
  inherited;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
begin
  FMousePos.X := X;
  FMousePos.Y := Y;
  inherited;
end;
 
procedure TForm1.LayoutDragOver(Sender: TObject; const [Ref] Data: TDragObject; const [Ref] Point: TPointF; var Operation: TDragOperation);
begin
  if(Data.Source is TRectangle) and (TControl(Data.Source).Parent <> Sender) then
    Operation := TDragOperation.Move
  else
    Operation := TDragOperation.None;
end;
 
procedure TForm1.LayoutDragDrop(Sender: TObject; const [Ref] Data: TDragObject; const [Ref] Point: TPointF);
begin
  TControl(Data.Source).Parent := TFmxObject(Sender);
end;

En mettant des points d'arrêt dans ces deux évènements (OnDragOver et OnDragDrop), je vois qu'on n'y passe jamais (avec ou sans HitTest sur les TRectangle).

[Thierry Laborde]

En mettant des points d'arrêt dans ces deux évènements (OnDragOver et OnDragDrop), je vois qu'on n'y passe jamais (avec ou sans HitTest sur les TRectangle).

Les évènements DragDrop et DragOver sont sur le Layout donc si sur le layout le Hittest est à false aucun évènement lié à la souris ne sera déclenché.
Par contre je ne comprends pas bien le but du Drag and Drop dans le code.

Parce qu'avec ce test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (Data.Source is TRectangle) and (TControl(Data.Source).Parent <> Sender) then

Le Rectangle n'a pas déjà le Layout comme Parent ? Parce que si oui tu ne passera jamais là dedans

[Paul TOTH]

en fait, je n'ai pas compris, tu utilises mon unité Drag&Drop (qui fonctionne très bien sous Android avec Berlin) ou tu utilises ton propre code ?

quand je parlais du HitTest, c'est celui de mon TDragImage, sinon il est destinataire de DragOver et DrapDrop (cf mes commentaires "don't see me" et "see me") par contre il faut le réactiver pour qu'il chope le MouseMove

[Lung]

Les évènements DragDrop et DragOver sont sur le Layout donc si sur le layout le Hittest est à false aucun évènement lié à la souris ne sera déclenché.

C'était tout bêtement ça qui me manquait.
Maintenant, mon projet test fonctionne bien :

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.LayoutDragOver(Sender: TObject; const [Ref] Data: TDragObject; const [Ref] Point: TPointF; var Operation: TDragOperation);
begin
  if(Data.Source is TRectangle) and (Data.Source <> Sender) then
    Operation := TDragOperation.Move
  else
    Operation := TDragOperation.None;
end;
 
procedure TForm1.LayoutDragDrop(Sender: TObject; const [Ref] Data: TDragObject; const [Ref] Point: TPointF);
var
  PositionPrec: Single;
begin
  if(Data.Source is TRectangle) and (Data.Source <> Sender) then
  begin
    if(Sender is TRectangle) then
    begin
      PositionPrec := (Data.Source as TRectangle).Position.X;
      (Data.Source as TRectangle).Position.X := (Sender as TRectangle).Position.X;
      (Sender as TRectangle).Position.X := PositionPrec;
    end
    else if(Sender is TLayout) then
    begin
      (Data.Source as TRectangle).Position.X := Point.X;
      Rectangle1.Align := TAlignLayout.None;      Rectangle1.Align := TAlignLayout.Left;
      Rectangle2.Align := TAlignLayout.None;      Rectangle2.Align := TAlignLayout.Left;
      Rectangle3.Align := TAlignLayout.None;      Rectangle3.Align := TAlignLayout.Left;
    end;
  end;
end;

Maintenant que le concept fonctionne, je n'ai plus qu'à faire un truc propre ...

Par contre je ne comprends pas bien le but du Drag and Drop dans le code.

Pour l'instant, c'est juste un projet de test pour me familiariser avec le glisser-déposer en FMX.
A terme, les rectangles représenterons des en-têtes de colonne, qu'il sera possible d'échanger pour modifier l'ordre des colonnes.

Parce qu'avec ce test ...... Parce que si oui tu ne passera jamais là dedans

Comme les évènements n'étaient même pas appelés, je n'avais pas encore réfléchit à ce que j'allais y mettre.

en fait, je n'ai pas compris, tu utilises mon unité Drag&Drop (qui fonctionne très bien sous Android avec Berlin) ou tu utilises ton propre code ?

J'utilise mon propre code. Pour l'instant, ma cible c'est windows. Mais même là, je n'arrivais à rien.
Pour androïde, on verra plus tard ...

pour votre aide.

[Thierry Laborde]

Bonjour,

Un lien qui devrait également t'intéresser :

http://firemonkeyblog.blogspot.ch/20...nkey-form.html

Et notamment la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Layout1.Root.Captured := Layout1;

En fait cela permet que le layout1 capture les événements de la souris même si le hittest est à False. Ce qui est pratique certaines fois, notamment dans les Drag and Drop.
Dans le même genre tu as le AutoCapture qui est aussi intéressant.

[Thierry Laborde]

@Lung

Pour info ta boite de messages sur DVP est pleine et du coup on ne peut plus t'envoyer de MP.

[Lung]

Un lien qui devrait également t'intéresser :
http://firemonkeyblog.blogspot.ch/20...nkey-form.html

Effectivement.
Je vais tester cette solution pour comparer laquelle colle le mieux à ce que je cherche ...

Pour info ta boite de messages sur DVP est pleine et du coup on ne peut plus t'envoyer de MP.

J'en ai supprimé 2 ~ 3. Faut que je fasse du ménage ...