Ajouter un composant dans un autre

Soyez le premier à donner votre avis sur cette source.

Vue 5 055 fois - Téléchargée 291 fois

Description

Par exemple, vous pouvez essayer de glisser un TProgressBar dans unTStatusBar...
Ben vi mais non ca marche pas!

Alors le plus simple (oui parceque l'on pourrait dérivé un nouveau composant TStatusBar...) c'est de coder dans l'evenement OnCreate ceci :

Source / Exemple :


StatusBar1.ControlStyle := StatusBar1.ControlStyle + [csAcceptsControls]; 
ProgressBar1.Parent := StatusBar1; 
ProgressBar1.SetBounds(0, 2, 150, 16); 
ProgressBar1.BringToFront;

Conclusion :


Et boom comme par magis ca marche!

Remarque : Ceci ne marche qu'avec les composants dérivés de la class TControl.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Hein? Quoi, comment , ou???

Bloubloublou
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
Ce qui veux dire aussi que j'ai répondu une bétise récemment dans le Forum en disant qu'il n'était pas possible de le faire...
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Arf enfaite il serait bien de le laisser, les deux exemples sont un peu differents.
Je pense que c'est une bonne chose de montrer differents codes pour un meme sujet.
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Oups!!! Desolé j'ai pas verifier!
Tu fais bien de me le dire, je le laisse ou pas?

Babaille.

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.