Discussion :

[dahlback]

J'ai déjà lu le premier post sur ce sujet sans résolution de mon problème.
Je voudrais intercepter un évènement Windows dans une classe.

Voici le code de ma classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
device est une classe
 
	giEvent est un entier
 
FIN
 
 
PROCEDURE Constructeur(argiEvent est un entier)
 
giEvent = Evénement(cb,"*.*",argiEvent)
 
 
PROCEDURE Destructeur()
 
FinEvénement(giEvent)
 
 
PROCEDURE PUBLIC cb()
 
giEvent = giEvent // point d’arrêt
 
RENVOYER Vrai

J'ai placé un point d'arrêt dans la méthode 'cb', lorsque l'évènement Windows est envoyé, je ne passe pas dans la méthode 'cb'.

Apparament Windev c'est faire çà, régression en WD16 ?

[frenchsting]

Je suis nul en objet, mais tu instancies ça où ?

[Atsibat]

A mon avis si ça marche il faut que "cb" soit une méthode de "device"
et bien sur que tu alloue un objet device.
A voir je n'ai jamais essayé ça...

[dahlback]

'cb' est effectivement une méthode de 'device'.

L'objet est instancié dans l'initialisation de la fenêtre principale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
d est une device(0x8001)

[OnePoint]

Bonjour,

J'ai déjà lu le premier post sur ce sujet sans résolution de mon problème.
Je voudrais intercepter un évènement Windows dans une classe.

Voici le code de ma classe :
[ ... ]

Apparemment Windev sait faire ça... ou bien est-ce une régression en WD16 ?

Je suis bien étonné.
Le WLangage prend effectivement en charge l'interception d'un événement Windows par une méthode d'un objet instancié...

Je confirme que ça fonctionne pour Windev 16.
Et l'aide en ligne n'en parle toujours pas.

Alors le problème est ailleurs...
Déjà, pour être certain d'interrompre l'exécution de la méthode, tu pourrais y insérer l'instruction Stop.

[dahlback]

J'ai essayé avec l'instruction 'stop' ainsi que d'autres techniques et je vous assure que je ne passe jamais dans la méthode 'cb'.

La syntaxe du constructeur de la classe est-elle ok ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
PROCEDURE Constructeur(argiEvent est un entier)
 
giEvent = Evénement(cb,"*.*",argiEvent)

[themayu]

Bonjour,

Avez-vous essayé de remplacer "*.*" par le nom complet d'un champ de votre fenêtre. Je l'utilise comme ça depuis une classe et n'ai pas de problèmes particuliers.

Sinon l'exemple "WD Lasso" utilise un Evénement à l'intérieur d'une classe pour comparaison.

[DelphiManiac]

Un message Windows est par nature envoyé à une fenêtre, fenêtre au sens large du terme, dans le sens ou même un contrôle est considéré comme une fenêtre.

Il ne me semble pas que l'on puisse intercepter un message sans afficher quoi que ce soit.

Peut être que certain type de message n'ont pas besoin de fenêtre par contre. Il faudrait donc savoir quel sont les messages que tu veux intercepter.

[dahlback]

Problème résolu => erreur bête => l'objet était alloué dans l'initialisation de la fenêtre et non dans les déclarations globales.
Merci pour votre aide !