procédure évenementielle dynamique ?? oui mais...

Marsh Posté le 18-07-2006 à 11:16:49

Bijour :jap:

en fait je créé plusieurs composants dynamiquement. Mais pour certains, j'ai besoin des procédures évenementielles associées.
Et je ne vois pas comment récupérer les arguments qui sont donné a l'appel de la procédure.

Mon cas est pour un Serveur TCP Indy , et la procédure évenementielle onExecute. Et je voudrais récupérer le AThread.

Une idée SVP ?

Marsh Posté le 18-07-2006 à 11:16:49

Marsh Posté le 20-07-2006 à 10:03:23

UP !!

Marsh Posté le 24-07-2006 à 17:46:25

:hello:
En fait il faut juste affecter a ton evenement la procedure adequate,
sans inclure les parametres eventuels.

Si c'est un click : tu fais "Compos.OnCLick := CompoClick;"
tu t'occupes pas du Sender, en declaration de la procedure "CompoClick(Sender:TObject)"

Expl

Code :

TLaFiche = class(TForm)
...
Procedure CompoClick(Sender:TObject);
Procedure Creation_Dynamiq;
End;
...
Implementation
...
Procedure TLaFiche.CompoClick(Sender:TObject);
Begin
//Code si click
...
End;
Procedure TLaFiche.Creation_Dynamiq;
Var Compos:TComposant;
Begin
Compos:=TComposant.Create;
Compos.OnCLick := CompoClick;
End;

J'espere ne pas avoir ete trop brouillon :pt1cable:

---------------
L'éternité c'est long, surtout vers la fin.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *