Discussion :

[Vilukariok]

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 :

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

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 ???
Mais pourquoi ???
Je ne comprend absolument pas le souci ???

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.

[Vilukariok]

Tiens, bizarre!

Lorsque j'exécute ce code:

Code :

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

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.

[Just-Soft]

Salut;

Code :

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

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 :

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

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...

[Vilukariok]

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 :

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

1
2
 
button1.setfocus;

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

Code :

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

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...

[Just-Soft]

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.

[Vilukariok]

Ç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...