Page 1 sur 1

BindEvent() Customizé

Publié : sam. 27/août/2016 18:22
par 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)

??

Re: BindEvent() Customizé

Publié : sam. 27/août/2016 19:12
par falsam
La réponse qui tue : Non

Re: BindEvent() Customizé

Publié : sam. 27/août/2016 20:02
par 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)

Re: BindEvent() Customizé

Publié : jeu. 01/sept./2016 7:48
par 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.

Re: BindEvent() Customizé

Publié : jeu. 01/sept./2016 22:28
par Ollivier
Tu utilises le couple :

Code : Tout sélectionner

SetGadgetData()
GetGadgetData()
avec EventGadget()

Ça marche aussi très bien effectivement.