bug avec radiogroup

bonjour,

soit le code suivant:

Code:

---

1 2 3 4 5

procedure TForm1.FormShow(Sender: TObject); begin radiogroup1.ItemIndex:=0; end;

---

je voudrais savoir si a l'affichage de la "form" la fonction d'initialisation radiogroup1.ItemIndex:=0; appelle l'evénement radiogroup1.onclick ?

en fait , mon radiogroup ne s'initialise pas correctement à l'affichage de la "form". Il doit y avoir un bout de code qui doit interférer !
C'est pourtant pas la première fois que j'utilise ce code et d'habitude j'ai pas de soucis !!

Bug quand tu nous tiens :aie:


a+

salut

tu fait quelque chose de particulier dans ta méthode click ?
si c'est le cas met un point d'arret dans la méthode onclick de ton radiogroup

si celui-ci passe bien par le onclick il te faudra ruser
j'ai eu ce genre de probleme avec un CheckListBox ou meme un TCheckButton
voici la ruse que j'ai employé

Code:

---

1 2 3 4 5 6 7 8 9

var OnClick : TNotifyEvent; begin OnClick := radiogroup1.OnClick; radiogroup1.OnClick := Nil; radiogroup1.ItemIndex:=0; radiogroup1.OnClick := OnClick; end;

---

@+ phil

Salut

Pour te convaincre de l'appel de ton gestionnaire d'évt, il suffit d'y placer un point d'arrêt et d'exécuter.

Si le gestionnaire n'est pas invoqué à l'affichage de ta fiche, il peut s'agir tout simplement du fait que le gestionnaire d'événement n'est pas associé à l'événement. Des fois on l'efface pour des tests et on oublie de le réaffecter. Vérifie avec l'inspecteur d'objets.

Enfin, vérifie également si dans le constructeur ou l'évt OnCreate, tu ne modifie pas la valeur de l'événement (affectation à Nil par exemple).

Cdlt

e-ric