la procédure s'éxecute plusieurs fois

Au secours!!!
Dans mon programme j'utilise le composant DBLookUpListBox.
Je me sert de l'évènement "onClic" de ce composant et dans les lignes de codes de cette procédure,je met un point d'arrêt.
Exemple:

Code:

---

1 2 3 4 5 6

procedure TFrame.DBLookupListBox1Click(Sender: TObject); begin inherited; Valider.Enabled := false; end;

---

Le problème est que je passe 3 fois dans cette procédure ??? 8O
Mais pourquoi ??? 8O
Je ne comprend absolument pas le souci ??? 8O

J'ai essayé avec diverse composant, comme un tbutton ou un listBox pour voir si je passe également plusieurs fois dans la procédure "onCliC" de chaque composant mais il semblerait que le problème vienne de la LookUpListBox.

Si j'en crée une autre (sur la même form ou frame) avec différents paramètres,ça fait la même chose.

Si j'en crée une autre exactement pareil dans un autre programme , le bug n'y est plus...

Je ne sais pas du tout dans quel direction aller pour résoudre mon problème. :cry:

Tiens, bizarre!

Lorsque j'exécute ce code:

Code:

---

1 2	MessageDlg('Test',mtCustom,mbOkCancel,0);

---

à l'intérieur de mon "OnClic" du composant DBLookUpListBox, je n'ai plus de problème, la procédure s'exécute normalement ,c'est a dire une seule fois.

Salut;

Code:

---

1 2 3 4 5

procedure TFrame.DBLookupListBox1Click(Sender: TObject); begin inherited; Valider.Enabled := false; end;

---

à première vue ton code est un vrai énigme!

1. théoriquement inherited est spécifique aux constructeurs même si rien n'empêche de le trouver ailleurs et moi je me demande ce que cette instruction fait là ?
2. Valider est un verbe mais là c'est un objet dont on ne sait sa provenance un peu d'explication peut-être qu'il est la cause de ton malheur.

maintenant si on reprend le code du second poste :

Code:

---

1 2 3 4

procedure TFrame.DBLookupListBox1Click(Sender: TObject); begin ShowMessage('msg'); end;

---

ce code marche bien donc ce n'est pas le OnClick qui est le problème, donc un pas à pas te guideras visiblement sur le code qui plante...

en attente d'une suite...

1-Pour le inherited
Il c'est mis tout seul lorsque j'ai cliqué sur la DBLookUpListBox.
J'ai testé en l'enlevant et ça fait la même chose.

2-Pour le valider.enable
Il s'agit d'une expression quelconque.
Je peut utiliser n'importe quel autre code

exemple:

Code:

---

1 2	button1.setfocus;

---

j'ai le même problème, sauf avec le code

Code:

---

1 2	ShowMessage('msg');

---

J'ai essayé de faire un pas a pas sur ces 2 codes différents mais ils ont l'air de fonctionner.
Ils se déroule correctement puis sur le end de la procédure "ONClic"
les deux vont dans "frxClass
puis dans ExtCtrls

Voila... 8O

Re;

essaie de faire la même chose dans un nouveau projet mais pas de inherited ni de Valider juste un composant que tu lui passe le focus question de voir la réaction de l'exe.

Ça bug aussi.
J'ai juste fait une requête "insert into" dans la procédure "OnClic".
Et quand j'exécute le programme, la base de donnée a reçu 3 requetes... 8O

Désolé mais je ne serais d'aucune utilité puisque il s'agit là de requête alors que ton premier post ne fait aucune allusion à ça !
si tu passe le code entier peut-être que tu aura des réponses mais avec ces flash je ne suis pas capable de voir les choses.

Bonne chance.

Mon programme est le plus simple du monde.

J'ai mis une DBLookUpListBox relié a un dataset qui lui est relié a un query lui-même relié a une connexion.

De la je crée un événement "onClic" sur ma DBLookUpListBox.

Dans cette procédure "OnClic", j'y passe n'importe quel code.

Lors de l'exécution du programme.
Quand je clic sur ma DBLookUpListBox,
Je remarque que je passe trois fois de suite dans la procédure 'OnClic'.

C'est bizarre quand même ca...

Si tu as un inherited dans les événements, c'est que ton frame dérive d'un autre frame (héritage).

D'accord mais je n'est pas inehrited.

Ensuite, que ta classe s'appelle TFrame est étonnant, à moins que tu la déclares comme ceci :

Code:

---

TFrame = class(Forms.TFrame);

---

Mais même si j'utilise une simple Form sans TFrame et sans inherited ça bug quand même.

J'ai peut être une explication qui parait plausible.C'est que le programme détecte plusieurs messages "Clic" .
Par exemple, je tiens le clic de la souris a peine trop longtemps, du coup le programme comprend le message plusieurs fois.
C'est possible ça?

Non c'est pas possible ça ;).
Le click est généré lorsque tu relâches le bouton. (ou alors ta souris est foutue :mrgreen:)

Citation:

---

Envoyé par Vilukariok

Mon programme est le plus simple du monde.

---

Dès qu'il y a des Frames, ce n'est plus simple, c'est déjà la merde ...

Ou alors pire que ce que suppose Andnotor, tu as fait :

Code:

---

1 2	type TFrame = class(TForm)

---

Normalement, tu devrais avoir un moins une classe genre TFrame1, ou TFrameMachinTruc, un nom différent de la classe de base ...

Pour le inherited (qui n'est pas spécifique aux constructeurs mais au méthode redéfini) pour qu'il soit apparu seul, soit il y a un mot clé virtual qui traine quelque part ...

Ensuite, est-ce que tu n'aurais pas attaché ce gestionnaire d'évènement à d'autres évènement, vu que c'est un TNotifyEvent, beaucoup peuvent l'accepter comme OnExit, OnEnter, OnDblClick, ...

Alors est ce que c'est possible que le programme ne comprenne pas bien quelle ligne j'ai sélectionné dans ma DbLookUpListBox .
C'est a dire qu'il comprend que j'ai sélectionné la ligne 1et 2 en même temps du coup je passe 2 fois dans le "OnClic"
Ou je dis encore une grosse connerie comme tout a l'heure?

Pour répondre à ShaiLeTroll.
Je suis parti d'un nouveau projet tout vide, tout neuf avec juste une form de type "application fiches VCL".
Donc je n'ai plus de notion de Frame et à priori pas de gestionnaire d'événement.Non?

Ça y est j'ai compris.
Enfin,on m'a aidé...

J'ai résolu le probleme en faisant cette manip:
J'ai incrémenté une variable à chaque fois que je passai dans ma boucle "onClic".

Je vois que lorsque j'appuie sur le clic de la souris et que je me déplace avec le curseur sur une autre ligne; ça incrémente ma variable.

Donc en faite il perçoit un autre événement donc le programme me refait passer dans la procédure "OnClic".

Et bien sur idem quand je relâche le bouton de la souris.Ce qui explique pourquoi je passe au minimum deux fois dans la boucle.

Bref je vais oublier le "OnClic" sur une DBLookUpListBox et utilisé autre chose.

Tu dois implémenter le mauvais évènement par rapport à ce que tu veux faire ou alors tu as des références cycliques...

Pour info au cas où :
- l'évènement OnClick : Quand tu as appuyé sur le bouton avec la souris, que tu l'as relaché et que tu aies fait les deux actions en ayant la souris au-dessus du bouton (ou le focus est sur le bouton et tu appuies sur la barre espace)
- l'évènement OnMouseDown : un appui sur le bouton gauche et la souris est sur le bouton
- OnMouseUp : tu relâche le bouton et la souris est sur le bouton
Il y a 4 autres évènements relatifs à la souris pour un TButton, faire F1 sur un tbutton pour plus d'infos.

les composant BD sont simplement ici pour présenté les données, pour utilisé les événements de changement d'un champs utilise plutôt ceux de TDataset