Création dynamique de boutons (à l'exécution, donc)

Soyez le premier à donner votre avis sur cette source.

Vue 9 727 fois - Téléchargée 1 366 fois

Description

Ce code crée des boutons à l'exécution, en cliquant simplement en un endroit quelconque de la Fiche.
De plus, un évènement est associé au clic de chaque boutons créé.
J'ai opté ici pour TButton, mais on peut bien sûr créer d'autres objets de la même manière (TPanel, TImage, etc...)
On peut à tout moment supprimer ces objets, toujours à l'exécution, en libérant la mémoire.
J'envoie cet essai car il semble répondre à quelques questions posées sur le forum.
Bien entendu, n'hésitez pas à me faire par de vos critiques et suggestions.
Bonne prog' à toutes et à tous !

Source / Exemple :


voir le zip !

Conclusion :


Chose promise, chose dûe... voici la nouvelle version.
J'ai revu ma procedure :
j'ai laissé tomber la récursivité, il n'y a plus besoin de passer de paramètres, et elle est plus propre me semble-t'il :-)

Et voici la 2ème mise à jour, je vais finir par y arriver !
Pour résumer, j'attribue maintenant une valeur au Tag des bouton au moment de leur création, et je me sers de cette valeur pour libérer les boutons créés. C'est plus simple.

3ème maj mineure le 14-11-03.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
dimanche 23 avril 2006
Statut
Membre
Dernière intervention
9 février 2009

bonjour
c ce qui me fallait comme code sauf que les boutons sont tranqformer en maskedit, mais le probleme c que je ne peux pas recuperer la valeur de saisie de ces maskedit (onclick)
help me
merci
Messages postés
18
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
20 octobre 2006

Je cherchai ce code depuis un moment. Mais, je veut créer les composants à l'exécution du programme. existe-t-il un moyen de les placer ou on veut (par exemple).
Messages postés
1721
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
30 août 2020
4
Salut mcapp,
Si je comprends bien, tu voudrais avoir deux Font.Style différents dans le même bouton...
Il va donc te falloir créer ton propre composant, à moins qu'il n'existe déjà (voir http://www.torry.net).
D'après ce que j'ai lu sur ta fiche, tu vas largement avoir le temps de t'y consacrer, veinard ;-)
Messages postés
71
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
15 décembre 2011

Bonjour Japee,
je me permets de t'écrire ici car je devine en toi la personne avide de relever de nouveux défis ! J'apprécie, très sincèrement, bon nombre de tes sources !
Je voudrais savoir s'il est envisageable d'obtenir une caption sur un bouton (comme le TSimpleBtn du composant MyButtons) avec deux styles Font.Style :
Je voudrais obtenir un bouton avec un titre en gras suivi d'un texte non gras.

Je sais faire, par exemple, SimpleBtn.Caption := Memo1.Caption + Memo2.Caption.
Mais comment attribuer un font.style différent à chacun des 2 Memo.Captions dans SimpleBtn.Caption ?
Ma question te semble-t-elle intéressante ?
Merci !
Messages postés
44
Date d'inscription
samedi 16 octobre 2004
Statut
Membre
Dernière intervention
28 février 2006

Merci a toi! la source est bien commentée, ce qui se fait rare, et m'a largement dépanné!
Afficher les 11 commentaires

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.