CRÉATION DYNAMIQUE DE BOUTONS (À L'EXÉCUTION, DONC)
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
6 sept. 2003 à 17:44
cs_kwi Messages postés 3 Date d'inscription dimanche 23 avril 2006 Statut Membre Dernière intervention 9 février 2009 - 9 févr. 2009 à 10:17
cs_kwi Messages postés 3 Date d'inscription dimanche 23 avril 2006 Statut Membre Dernière intervention 9 février 2009 - 9 févr. 2009 à 10:17
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/12743-creation-dynamique-de-boutons-a-l-execution-donc
https://codes-sources.commentcamarche.net/source/12743-creation-dynamique-de-boutons-a-l-execution-donc
9 févr. 2009 à 10:17
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
18 juil. 2006 à 20:21
9 juin 2006 à 01:45
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 ;-)
8 juin 2006 à 23:45
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 !
20 mai 2005 à 13:19
2 mai 2005 à 01:03
Merci, r_g, Inekman, Kaley :-)
Vos appréciations sont des encouragements, c'est clair ;-)
(Ben oui, des fois, on a le doute...)
Sûr, c'est ensemble qu'on avance... tout seul, on n'est rien.
26 janv. 2005 à 11:25
continuezzzzzzzzzzzzzzzzzzzzzzzz ainsi
moi aussi je voulais savoir faire cela
la seule critique: vous avez su le faire avant moi
11 avril 2004 à 15:35
Merci, 10/10
Inekman.
22 déc. 2003 à 19:15
21 sept. 2003 à 00:16
Mais le hic, c'est qu'on ne peut plus faire semblant de ne pas voir la note, c'est clair !
Notation des membres : 5,00/10...
Je remercie par avance la personne qui n'a pas compris l'intérêt de ce code, ou qui l'a trouvé médiocre, de bien vouloir faire un petit commentaire, afin de nous éclairer de ses lumières...
On ne sait jamais...??? Ca pourrait m'être utile, ainsi qu'aux 277 personnes qui sont déjà passées par ici (au 20/09/03)... et à celles qui passeront plus tard :-)
6 sept. 2003 à 17:44
Il faut attribuer un Tag à l'objet au moment de sa création, (ici dans la procedure "constructor TMonButton.Create(AOwner: TComponent);").
Par exemple :
Tag := 1;
Pour libérer l'objet, la procedure devient :
procedure TForm1.LibereMonBouton;
var i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin
if Components[i].Tag = 1 then
begin
//Dec(NbreBtn); inutile ici... (voir le zip)
Components[i].Free;
end;
end;
end;
OK ?
En attendant la mise à jour, pffffffff.........
Bonne Prog' !