glisser poser dragdrop - Delphi/Pascal - Programmation
Marsh Posté le 08-06-2004 à 00:11:25
Tu mets le dragmode à dmautomatic et dans le ondragdrop tu récupères les coordonnées de destination que tu assignes à l'objet déplacé (il faudra peut-être aussi jouer avec ondragover pour dire qui accepte le drop).
Marsh Posté le 08-06-2004 à 12:16:45
Bonjour antp pourrais tu me donné un exemple car je comprend rien donc c est le code que je parle car on vois le glisser qui se produit mais n aparait pas dans mon image liste. dans dragover j ai mis
begin
Accept:=Source is Tbutton;
donc sa ca va mais dans le dragdrop je suis perdu a cause du code a mettre merci.
Marsh Posté le 08-06-2004 à 12:19:58
Un truc genre :
if Source is TControl then
begin
TControl(Source).X := X;
TControl(Source).Y := Y;
end;
Il faudra peut-être convertir les X et Y avec la méthode ClientToScreen de l'objet sur lequel tu déposes le contrôle puis ScreenToClient pour l'objet "parent" (panel, form, etc.)
Marsh Posté le 08-06-2004 à 13:30:05
je suis assez nul donc je n y arrive pas je voudrai deplacer un button dans une image pourrais-tu m aider un peus plus encore mille merci.
Marsh Posté le 08-06-2004 à 14:04:04
benh j'ai presque tout donné là, tu veux pas que je vienne chez toi le taper à ta place ?
Marsh Posté le 08-06-2004 à 15:53:22
non merci pour ta patience que soit ca ne va pas merci salut
Marsh Posté le 07-06-2004 à 23:05:21
Bonjour,je suis débutant et je voudrais un petit coup de main pour le dragdrop la source est un boutton2 et la destination est l'image1 et il y aura egallement un checkbox a y faire glisser je supose que se sera le meme code que pour le boutton2