BindEvent() Customizé

[Ollivier]

Bonjour à vous,

est-ce qu'il existe une fonction BindEvent() avec argument de donnée de type entier, pour permettre ça:

Code : Tout sélectionner

Procedure JeGereUnEvenement(*Obj.Objet)
...

C'est-à-dire permettre de porter un pointeur (ex: *Obj)

??

[falsam]

La réponse qui tue : Non

[Ollivier]

J'ai trouvé une alternative (j'ai oublié d'informer que je cherchais une solution sans variable globale).

Il y a un couple d'instructions de transfert d'entier attribué à chaque fenêtre:

Code : Tout sélectionner

SetWindowData()
GetWindowData()

On associe le pointeur à une fenêtre avec

SetWindowData()

Puis, dans la/les procédure(s) de gestion, on récupère le pointeur comme suit:

Code : Tout sélectionner

Define Win.I = EventWindow()
Define *Obj.MyObject = GetWindowData(Win)

[microdevweb]

Personnellement je n'utilise plus que les binEvent et BinGadgetEvent, exemple dans une gestion de tables (créer dans un canvas) et stockées une map, j'affecte à la création l'id de la map / list avec SetGadgetData et dans ma gestion d'événement la récupère avec GetGadgetData(EventGadget()). Cela fonctionne très bien.

[Ollivier]

Tu utilises le couple :

Code : Tout sélectionner

SetGadgetData()
GetGadgetData()

avec EventGadget()

Ça marche aussi très bien effectivement.