Ce code sert à maitriser le drag and drop ( glisser - déplacer );
Il est facile à comprendre , mais j'y ai mis du temps avant d'y arriver ( a le créer)
C'est ma premiere source , alors soyez indulgent .
merci
6neo6;
Source / Exemple :
Tout est dans le zip;
Conclusion :
J'espere que c'était pas trop dure pour vous.
pas de bug. Garanti sans virus : j'ai scanné le zip avec mon
antivirus
24 avril 2009 à 21:01
14 juin 2006 à 15:32
La variable globale Choix est pratique et rend le source plus lisible que l'utilisation du transtypage :
TControl(Source).parent := TWincontrol(sender);
// équivalent à Choix.parent := Form1;
Toutefois l'utilisation du transtypage permet d'écrire le même code en divisant le nb de procédures par deux.
Une seule procédure de chaque pour tous les labels (ou autres contrôle d'ailleurs). Il suffit seulement d'affecter la même procedure à tous les événements des contrôles déplaçables, puis la même à tous les c'est en fait l'utilité principale des paramètre tels que "sender" et "source".
11 févr. 2004 à 12:03
Ne pas tenir compte du commentaire ci-dessous si une mis a jour du fichier a ete faite.
La solution pour ce qui sont interessé par cette source (interessante).
- Avant d'ouvrir les fichiers, renommer le fichier dragdrop.dpr par project2.dpr
- Apres avoir ouvert le fichier, supprimer dans la liste des uses l'unite LabelTime.
1 nov. 2003 à 18:54
Inekman
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.