Discussion :

[sematimo]

Bonjour à tous.
Je voudrais savoir comment draguer une image du bureau vers un TImage de ma form.

[Roland Chastain]

Bonjour !

Je viens de faire un essai rapide en suivant les indications données dans ce document.

Donc je mets la propriété AllowDropFiles de TForm1 à True. Puis je crée la procédure pour la gestion de l'événement OnDropFiles et je la complète comme ceci par exemple :

Code :

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

1
2
3
4
5
procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of string
  );
begin
  Image1.Picture.LoadFromFile(FileNames[0]);
end;

Ça fonctionne. L'image peut être déposée n'importe où dans la fenêtre. Pour gérer le cas précis où l'image est déposée sur tel composant, là je ne sais pas.

[sematimo]

Merci Roland
J'avais bien essayé OnDropFiles mais je n'avais pas activé AllowDropFiles.
L'image se place parfaitement sur ma TImage.

[Alcatîz]

Bonjour,

Si une recherche dans les ressources existantes avait été faite avant de poser cette question, tu aurais trouvé tout ce dont tu as besoin dans les tutoriels :

• Apprendre le glisser-déposer avec Free Pascal/Lazarus 1/3 : techniques de base
• Apprendre le glisser-déposer avec Free Pascal/Lazarus 2/3 : personnalisation
• Apprendre le glisser-déposer avec Free Pascal/Lazarus 3/3 : maîtrise du dessin et des événements