Créer puis retrouver dynamiquement un controle

Question

J'ai besoin dans mon programme de créer dynamiquement des boutons surtout à cause de leur nombre important.
Je garde donc dans une liste chaînée toutes les adresses de ces boutons (avec quelques autre informations) et leur affecte à tous la même procedure OnClick.
Donc à chaque appel de la procédure je voudrais retrouver dans la liste chaînée le bouton par comparaison des adresses.

LE problème est que la classe TObject ne permet pas de récupérer l'adresse du controle qui a appelé la procédure donc je suis bloqué !

Si quelqu'un sait comment me tirer de ce mauvais pas ou a une autre idée sur le concept meme...

cs_vib · Answer

Salut,
dans ta fonction onclick
var t:Tbutton;
begin
 t:(sender as Tbutton); //transtypage
 showmessage(t.name);
end;

Et la tu peux récupéré toutes les propriétés du bouton.

cs_vib · Answer

Salut,
dans ta fonction onclick
var t:Tbutton;
begin
 t:=(sender as Tbutton); //transtypage
 showmessage(t.name);
end;

Et la tu peux récupéré toutes les propriétés du bouton.

cs_vib · Answer

Salut,
dans ta fonction onclick
var t:Tbutton;
begin
 t:=(sender as Tbutton); //transtypage
 showmessage(t.name);
end;

Et la tu peux récupéré toutes les propriétés du bouton.

cs_Kassad · Answer

Oooohhhh alors là je viens d'apprendre quelque chose !!! :)
Merci bien !
Bon j'ai encore quelques problèmes mais ça devrait aller.
Mreci encore !

Créer puis retrouver dynamiquement un controle

4 réponses

Votre réponse

Discussions similaires