PB avec ClickClearHook sur form 0

@ Klaus,

J' ai placé un button image sur le form 0
et pour éviter une fenêtre de message désaggréable,
j' ai fait la fonction Close_0 avec un ClickClearHook
sauf que j' ai quand même droit au message comme
si je l' avais pas fait...


la dll aurait elle eu un bug

Ma fonction:

Code:

Sub StopSurvey()
  Dim_local res1% ,hnd%
  hnd%  = handle(0)
  res1% = dll_call1("ClickClearHook",hnd%)
End_Sub

Autant pour moi !!!

apparemment c'est encore dll_off qui m' a joué des tours
pour mémo, la fermeture par la croix ne supporte pas dll_off combiné avec clickclearhook.
ce qui est bizarre :

avant de rajouter clickclearhook
pas de réaction avec dll_off

dll_off + clickclearhook = message

j' en perd le latin que je n'ai jamais eu...

Grrrrr!!!!!...

Code:

Close_0:
StopSurvey(0)
return

Pas de message !

Code:

Sub Quitter()
  StopSurvey(0)
  Dll_off
  Terminate
End_Sub

Message ! (avec ou sans dll_off)

Sur une ancienne version de la dll, sans dll_off,
le message n'y était plus...
A moins que ce soit la cible (form 0 ) qui pose un souci...

Edit : Confirmation !!! le form 0 ne supporte pas le clickclearhook

Merci pour l'info Ygeronimi. Plus qu'à avoir l'explication du pourquoi de Klaus ...

C'est plus une constatation qu'une information,
j' ai mis mes deux boutons image dans un container et passer
le numéro de container à ma procédure StopSurvey(C%)
et là plus de message.
Mais cela n' explique pas qu' en fermant par la croix, la procédure ne pose
pas de problème même avec le form 0 et la demande même puisque sans,
le message apparait ....

c' est une histoire de

Citation :

la dll aurait elle eu un bug

Ma fonction:
Code:
Sub StopSurvey()
Dim_local res1% ,hnd%
hnd% = handle(0)
res1% = dll_call1("ClickClearHook",hnd%)
End_Sub

Il faut passer à ClickClearHook le handle de l'objet sur lequel on a défini le ClickSetHook. Regarde l'exemple dans la doc:

Citation :

dim res%, hnd%, hndpos%
memo 10 : hnd% = handle(10)
edit 10 : hndpos% = handle(10) : hide 10
' intercepter les évènements sur le mémo et signaler les coordonnées
res% = dll_call2("ClickSetHook",hnd%,hndpos%)
...
' annuler l'interception des évènements sur le mémo
res% = dll_call1("ClickClearHook",hnd%)

Cela m'étonnerait que tu aies fait l ClickSetHook sur la form 0...

@ Klaus,

Je ne peux pas te remettre le code complet, je l' ai viré en faisant le ménage...
Mais, je vais te dire ce que j'avais fait.

J' avais un form 0 sur lequel j'avais placé deux bouton image .
J' avais fais une fonction Close_0 pour la fermeture par la croix
et une fonction Quitter() pour la fermeture par le menu.

la fonction Close_0 me renvoyait systématiquement le message
que j' ai posté plus haut.

dans un premier temps, j'avais, avant la création des deux boutons,
la commande "dll_off" dans cette fonction et cela fonctionnait sans
avoir de message.
J' ai rajouté les boutons et ajouté la fonction stopsurvey()
et vlan , v'là le message qui se pointe.
j'ai enlevé la commande "dll_off" et plus de message.

je mes suis dis: "youpi, c'est gagné" et je suis passé à la fonction de fermeture
par le menu.

là je reprends ce que j' avais dans mon Close_0 et surprise, retour du message.
je me rappelle que pour cette facon de fermer il me faut la commande "dll_off"
que je replace et à mon grand désarroi, le message persiste.
Bref, après avoir tourné en rond, et même bourrique quelques heures...
Je décide de mettre mes deux boutons dans un container, et là, plus de message.

Il va de soi que les numéros des objets à arrêter de surveiller par clickclearhook
ont été transmis dans les deux cas sinon j' aurai eu un autre message barbare et
encore plus violent...

...bon il faut que je fasse mes poubelles pour retrouver ce code...

Edit : Bon, désolé, quand je fais le ménage...je fais le ménage et j' ai tout viré...