creer un tableau de procedures ,possible ??

Question

bonjour,

tt d abord j adore bcp  ce forum

on y  trouve  ts les scripts qu on veut.enfin presque..



voila j ai ecris  un programme

permettant de creer en dynamique des  boutons

je souhaiterai affecter au clic de chacun d entre eux une procedure distincte

serait il possible pointer vers   un  element d un tableau de procedures  ?

rayman

florenth · Answer

Salut,

Tu peux creer un tableau dynamique de procedures comme ceci:



var

  MonTableau: array of TNotifyEvent; // TNotifyEvent =   procedure (Sender: TObject) of object : Le type-proc&#233;dure des evenements OnClick des boutons.



Ensuite tu le redimentionne normalement avec SetLength().

Il faut que tes procedures soient d&#233;j&#224; &#233;crites avant la compilation (donc leur nombre n'est pas variable).

Tu assignes les porc&#233;dures comme cela:



MonTableau[0] : = Button1Click; // ou Button1.OnClick;



et ensuite tu peux t'en servir:



ButtonX.OnClick := MonTableau[0];



Mais je te conseille de jouer avec le parametre Sender plut&#244;t
que d'utiliser un tableau dynamiques de procedures, c'est plus simple
et plus "correct".



Bonne chance.

@ ++

Florent



PS: Je pars deux semaines (dans une contr&#233;e lointaine sans ordi ...) donc je ne pourrais pas r&#233;pondre aux futurs messages.



Si tu ne te plantes pas ......
tu ne poussera jamais

taye78 · Answer

Comme l'a si bien dit florenth, il est bien plus pratique de jouer avec Sender que de t'embêtter avec des tableaux par ci, par lá...

rayssec · Answer

merci pour ta reponse rapide.

je  l essaye de suite pour voir...

Nicolas

walid2876 · Answer

Salut Pourquoi Ce grand travail avec un tableau ....
Il suffit une seule procedure Avec Un parametre TObject (Sender parexemple)
Et ensuite ecrit plusieurs code a chaque button ET fait

With (Sender as TButton) Do
  Case Name {Ou Caption}  Do
   //....Ici Pour chaqun de tes buttons Ecris Son code approprie  
   //....Exemple par leur Name
   'Button1':Begin {code pour Button1} End; 
   'Button2':Begin {code pour Button2} End; 
   //..... etc}
  End;
Et a chaque button Onclick:=Tonprocedure 
{Exemple Procedure Clic(Sender:TObject)}

walid2876 · Answer

Merci pour ton conseil J pas fais attention 
Donc Fais le avec le Tag De button 
Merci Ami ...

Creer un tableau de procedures ,possible ??

5 réponses

Votre réponse

Discussions similaires