Listbox transparente créée dynamiquement sur une image

Soyez le premier à donner votre avis sur cette source.

Vue 4 626 fois - Téléchargée 975 fois

Description

Ce composant créé par Walter Irion est bien utile. Je donne ici un exemple d'utilisation de ce composant créé dynamiquement sur une image de fond.

A noter que la propriété Parent de la ListBox créé ainsi dynamiquement doit utiliser un contrôle fenêtré (TWinControl). Ici c'est donc la fiche principale
qui est parent.

J'ai mis également un évènement OnClic pour le composant afin de vérifier son fonctionnement

Source / Exemple :


Ceux qui veulent installer le composant, l'unité d'origine est fournie. Mais l'exemple fourni utilise le composant par sa définition dans l'unité UTransparentListBox.Pas

Conclusion :


C'est un code tout simple et le mérite en revient à Walter Irion.
Je trouve très pratique son unité et je voulais vous en faire profiter

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Jean_Jean
Messages postés
637
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
2 -
Salut Aymenk,

Merci pour ce conseil, cette astuce que je ne connaissais pas... La procédure d'installation de alpha control n'est pas très compliqué mais c'est comme toujours, il faut se souvenir de telle procedure telle autre, et de telles dizaines d'autres...
La même arborescence est une technique que j'avais déjà mis en place, ça permet au moins de retrouver ses petits...
Je vais noter ton astuce quelque part!
aymenk
Messages postés
79
Date d'inscription
samedi 25 janvier 2003
Statut
Membre
Dernière intervention
29 octobre 2018
-
Salut Jean_Jean:
Apropos de Reinstaller les composants ...
<<...Avec delphi 5, j'utilisai une classe de composants super class de chez Alpha Control. Je l'ai utilisé également avec D7 perso... Mais ça me fatigue de tout réinstaller à chaque fois : changement d'ordi, pb de licence etc...>>

avant de chager de PC j Exporte les deux lien de la base de registre :

HKEY_CURRENT_USER\Software\Borland
HKEY_LOCAL_MACHINE\SOFTWARE\Borland
Apres réinstallation de delphi je double clic sur les deux fichier exporté a condition que je garde la même arborescence des mes composants.
par exemple je garde ma VCL dan E:\maVCL\...
cs_Jean_Jean
Messages postés
637
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
2 -
Merci Cirec pour cette précision.
A noter absoluement au rouge dans nos antisèches
J'en tiendrai compte dans mes MAJ
Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
32 -
Salut,

petite parenthèse "au sujet de LBT.Free sur le Forum!"

La règle de base veut que l'on libère tout objet ou mémoire alloué dynamiquement.
et il y a les composants ... ceux qui acceptent un paramètre "Owner" dans le constructeur

"Owner" ou "propriétaire" qu'il ne faut pas confondre avec le Parent (les deux peuvent avoir la même valeur)
c'est lui qui se chargera de libérer le composant à la fin (sauf si il vaut "nil")

MonCompo := TMonCompo.Create(Self);
c'est Self (qui dépend du contexte) qui se chargera de libérer MonCompo.

MonCompo := TMonCompo.Create(Form1);
c'est Form1 qui se chargera de libérer MonCompo.

MonCompo := TMonCompo.Create(nil);
c'est le programmeur qui se chargera de libérer MonCompo.
cs_Jean_Jean
Messages postés
637
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
2 -
Salut Mauricio,
Je me suis douté qu'il fallait écrire du code...
Chouette, un composant de plus à tester...
Je voulais rester simple, au pire je renverrai vers ton code...
Merci

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.