Tsizerctl
Composant Delphi non visuel pour activer le déménagement et le redimensionnement des contrôles.
Auteur original: Angus Johnson
http://angusj.com/delphi/
http://angusj.com/delphi/sizectrl.html
Testé sur:
Delphi 3, 4, 5, 6, 7, 10.1 Berlin, 10,2 Tokyo
Version:
Ceci est une fourche depuis la dernière version de l'auteur (7.2 - 3 septembre 2006)
Captures d'écran du composant TsizECTRL:
Dimensionnement:
Mobile:
Les commandes alignées ont des poignées de "bouton de saisie" désactivées le long des bordures fixes:
Les contrôles multiples peuvent être déplacés ou redimensionnés ensemble:
Utilisation de base:
- Ajoutez un composant TsizECTRL (SIZECTRL1) à votre formulaire.
- Définissez les propriétés SICECTRL1 (couleurs du bouton, etc.) comme vous le souhaitez.
- Attribuez des méthodes d'événement (démarrage, des événements de taille / fin de fin) comme vous le souhaitez.
- Dans la méthode OnCreate du formulaire, SizECtrl1.RegisterControl () Tous les cibles possibles.
- Dans une méthode menuitem assignée, bascule la propriété SIMECTRL1.Enabled.
- Une fois activé:
- Cliquez sur ou l'onglet pour sélectionner les cibles.
- Maintenez la touche Maj vers le bas pour sélectionner plusieurs cibles.
- Redimensionner les cibles en cliquant et en faisant glisser les boutons de redimensionnement d'une cible ou en maintenant la touche Maj en utilisant les touches fléchées.
- Déplacer les contrôles en cliquant et en faisant glisser une cible ou en utilisant les touches fléchées.
Remarques diverses:
La capture des messages WM_SetCursor des en-têtes ListView nécessite également d'accrocher le gestionnaire de messages de l'en-tête. Je ne pense pas que cette amélioration mineure de la gestion du curseur justifie l'effort de programmation supplémentaire considérable.
