Delphi Xe2 Drag and Drop

bonjour,

voila a ce jour j'est un souci dans la nouvelle mouture d'embarcadero delphi xe2 . impossible de faire un simple drag and drop


j'ai une Timage et un Tpanel
sur le Timage le dragmode est sur automatique

sur le Tpanel
une procedure OnDragOver
et une procedure OnDragDrop

au deplacement de ma Timage la procedure ondragover se lance bien mais quand je lache l'image sur le tpanel aucune reaction .

voici mon code :

Procedure OnDragOver :

Code:

---

1 2 3 4 5 6

procedure TForm1.Panel3DragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Accept: Boolean); begin Accept := True; end;

---

Procedure OnDragDrop :

Code:

---

1 2 3 4 5 6

procedure TForm1.Panel3DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); begin showmessage('ok'); end;

---

Citation:

---

Envoyé par morpheus0010

bonjour,

voila a ce jour j'est un souci dans la nouvelle mouture d'embarcadero delphi xe2 . impossible de faire un simple drag and drop

---

Code:

---

property Image1.DragMode:=dmAutomatic

---

ou

Code:

---

1 2 3 4 5 6

procedure TForm3.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.BeginDrag(True); end;

---

Ok avec XE2 upd 1

Citation:

---

Envoyé par Eric.H

Code:

---

property Image1.DragMode:=dmAutomatic

---

ou

Code:

---

1 2 3 4 5 6

procedure TForm3.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.BeginDrag(True); end;

---

Ok avec XE2 upd 1

---

re bonjour
et merci pour l'interet sur mon probleme

comme dit plus haut le DragMode de mon image est bien sur dmAutomatique et je voi bien "l'image fantome se balader" mais sans résultat
par contre quand j'essai votre deuxieme solution la procedure BeginDrag n'est pas reconnu j'ai pourtant Fmx.Controls et j'ai rajouté VCL.Controls

il se peu que ma version de xe2 n'ayant pas la derniere mise a jour soi en cause

Je viens de tester sous XE2 update 1

cela fonctionne aussi bien en VCL qu'en FMX

attention, il en faut pas mélanger les deux environnements, c'est pas prévu pour.

Citation:

---

Envoyé par Paul TOTH

Je viens de tester sous XE2 update 1

cela fonctionne aussi bien en VCL qu'en FMX

attention, il en faut pas mélanger les deux environnements, c'est pas prévu pour.

---

je vien de passer a l'update 1 de XE2
malheureusement toujours le même soucis


je vous join mes sources sous delphi xe2 update 1 si vous pouvez jetez un oeil et me dire ou je me plante , merci .

http://dl.free.fr/iDy5uDYrU

alors après plusieurs heure de recherche le problème viendrais d'un bug de lié a certaine carte graphique sur les compilation en 32 bit , en effet quand j'exporte mon projet en 64bit plus aucun problème, le Drag / Drop fonctionne parfaitement . le bug vien de la position de la souris car je peu selectionnez mes elements present en en bas a gauche de chaque élément . si vous avez une solution de recalibrage de la souris dans une form je suis preneur .

merci

source bug : https://forums.embarcadero.com/threa...61567&tstart=3

Citation:

---

Envoyé par morpheus0010

je vien de passer a l'update 1 de XE2
malheureusement toujours le même soucis


je vous join mes sources sous delphi xe2 update 1 si vous pouvez jetez un oeil et me dire ou je me plante , merci .

http://dl.free.fr/iDy5uDYrU

---

aucun soucis chez moi.

tant qu'on est dans la bug graphiques, peux-tu lancer un projet Firemonkey qui contient un TPath dont la propriété Data.Data vaut "Z" ?

chez moi ça me donne une fiche toute noire, cf QC99685, mais uniquement à l’exécution. Je pense que l'IDE utilise GDI+ or le bug n’apparaît qu'avec Direct2D.

Citation:

---

Envoyé par Paul TOTH

aucun soucis chez moi.
tant qu'on est dans la bug graphiques, peux-tu lancer un projet Firemonkey qui contient un TPath dont la propriété Data.Data vaut "Z" ?
chez moi ça me donne une fiche toute noire, cf QC99685, mais uniquement à l’exécution. Je pense que l'IDE utilise GDI+ or le bug n’apparaît qu'avec Direct2D.

---

>> morpheus0010 : Ok chez moi 32/64
>> Paul TOTH : même problème chez moi 32/64

Citation:

---

Envoyé par Eric.H

>> morpheus0010 : Ok chez moi 32/64
>> Paul TOTH : même problème chez moi 32/64

---

ok merci, n'hésite pas à le signaler sur QC avec le modèle de ta carte.