Discussion :

[Lulutruc]

Bonjour,

J'ai une application assez complexe que je migre de D4 à D7.

Pour faire court, j'ai une comboBox qui me lance une procédure onclick sans qu'aucun click n'ait été effectué...
Cette procédure onClick n'est pas lancée sous delphi 4.

Comment savoir ce qui lance cette procédure ?

Merci d'avance pour votre aide.

[rbh]

Salut
Certain composant mélange un petit peu le Onclick et le OnChange, c'est peut-être quand tu remplis ta Combo.
Autrement, avec D7, en pas à pas, tu peux demander la pile d'appel (le raccourci dépend des choix que tu as fait (dans les options d'environnement).
Elle est aussi accessible par le menu "Voir|Fenêtre de débogage|Pile d'appel".

:Edit:
TicTacToe bizarre je commence à répondre au poste et le valide assez longtemps après, le temps de vérifier ce que je dis...

[TicTacToe]

Eventuellement en 1er, tu peux faire un point d'arret sur ta méthode et regarder en fenetre de debogage, l'histo des fonctions appelées ? ca vient peut etre d'une fonction et pas de ton evt ?


:EDIT:
ah... rbh a validé son post avant moi

[Lulutruc]

Effectivement, c'est quand je remplis ma combo...

Quand je tape la première lettre, ça lance onKeyDown, puis le onKeyPress, puis le onClick avant de lancer le onChange.
Normalement j'ai un timer lancé par le onKeyUp qui permet d'attendre avant de lancer la recherche. Mais ce timer est court-circuité par le onClick, ce qui rend délicat l'utilisation des points d'arrêt pour débugger en pas à pas... (je sais pas si je suis bien clair...)

Par contre, ce qui m'intrigue, c'est que le onClick n'est pas lancé lors de la première saisie dans la combo (quand celle-ci n'a pas déjà été chargée, ça lance bien la procédure prévue : onkeyDown, onKeypress, onChange, onKeyUp puis le timer.
Ce n'est que si la combo est déjà remplie que ça me lance le onClick.

Par contre dans la pile d'appel je n'ai que ma procédure onclick...

[Lulutruc]

Je me permet de revenir à la charge, désolé.

Après quelques tests supplémentaires, il semblerait bien que ce soit la comboBox qui s'emmèle les pinceaux et lance la procédure onClick avant la procédure onChange lorsque je change le texte.

Quelqu'un sait-il s'il y a un correctif là dessus ? Ou le cas échéant, y a-t-il moyen de vérifier que le bouton de la souris à bien été enfoncé au début de la procédure onClick ?

Merci d'avance encore une fois...

[MFDev]

Salut,
onKeyDown ne permet-il pas de tester si le bouton souris est enfoncé, genre VK_LBUTTON, VK_RBUTTON ?
Si c'est une touche clavier tu désactives le ONClick avec un test en entrée, par ex:

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
 
proc onKeyDown();
 begin
  if Key <> click then
    NoClick = true
  else
    NoClick := true;
  .... // traitement
 end;
proc OnClick();
 begin
  if NoClick then
    Exit;
  ... // traitement
 end;

Il existe le même problème quand on initialise des TEdit lors du Create, cela lance le OnChange du TEdit avec des traitements quelquefois source d'erreurs... Il suffit alors de créer une var globale boolean, bInit = true lors du OnCreate que l'on remet à false en sortie. Et un test dans OnChange du TEdit, active ou désactive le traitement.
@+
Fabrice

[Lulutruc]

Bonjour,

Je viens clore ce sujet, j'ai finalement résolu le problème.
C'était tout con... enfin... presque...

En fait le souci venait de la propriété "AutoComplete" du composant TComboBox sous Delphi 7 qui était à TRUE.
Cette propriété n'existait pas sous Delphi 4 et à donc due être programmée par les développeur d'origine l'application. L'apparition de cette propriété faisant double emploi avec les développements, ça faussait complètement le comportement de la combobox.

Par souci de simplicité, j'ai mis la propriété à False et mon appli à retrouvé son comportement d'origine.

Par ailleurs, la propriété onClick n'est plus appelée, j'en déduis que c'est le fait de réussir l'autocomplétion dans la combobox (lorsque la propriété est à TRUE) qui lançait cette procédure (exactement comme si l'utilisateur avait en fait cliqué sur l'Item trouvé).

Merci à tous pour votre aide...