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;