MAITRISER LE DRAG AND DROP ( GLISSER - DÉPLACER)
Inekman
Messages postés
291
Date d'inscription
dimanche 2 février 2003
Statut
Membre
Dernière intervention
30 juin 2006
-
1 nov. 2003 à 18:54
daly32 Messages postés 1 Date d'inscription dimanche 7 septembre 2008 Statut Membre Dernière intervention 24 avril 2009 - 24 avril 2009 à 21:01
daly32 Messages postés 1 Date d'inscription dimanche 7 septembre 2008 Statut Membre Dernière intervention 24 avril 2009 - 24 avril 2009 à 21:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12713-maitriser-le-drag-and-drop-glisser-deplacer
https://codes-sources.commentcamarche.net/source/12713-maitriser-le-drag-and-drop-glisser-deplacer
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