glisser poser dragdrop

glisser poser dragdrop - Delphi/Pascal - Programmation

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

Reply

Marsh Posté le 07-06-2004 à 23:05:21   

Reply

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


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

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.

Reply

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


Message édité par antp le 08-06-2004 à 12:20:19

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

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.

Reply

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 ? :o


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 08-06-2004 à 15:53:22    

non merci pour ta patience que soit ca ne va pas merci salut

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed