Discussion :

[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


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 :

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

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 :

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

1
2
3
4
5
6
 
procedure TForm1.Panel3DragDrop(Sender: TObject;
  const Data: TDragObject; const Point: TPointF);
begin
showmessage('ok');
end;

[Eric.H]

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 :

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

property Image1.DragMode:=dmAutomatic

ou

Code :

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

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

[morpheus0010]

Code :

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

property Image1.DragMode:=dmAutomatic

ou

Code :

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

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

[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.

[morpheus0010]

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

[morpheus0010]

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

[Paul TOTH]

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.

[Eric.H]

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

[Paul TOTH]

>> 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.