Discussion :

[DURVILLE]

J'ai une procedure (A) - lancée pau un TButton qui, entre autres opérations, coche automatiquement un Radiobutton en détectant ce composant.

Code :

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

TRadiobutton(FindComponent('RadioButton'+IntToStr(truc))).CHECKED:=True;

J'ai une autre procedure (B) déclenchée par l'utilisateur quand il coche un radiobutton. (RadioButton Click)

PROBLEME : la procedure (A) déclenche la procedure (B) alors que ce n'est pas souhaité. (saut de procedure)
Comment éviter ça ?
Merci ...
(Je ne suis pas un pro - ça doit se voir à mon écriture de code -, merci d'être explicite)

[Vinchou]

A ma connaissance il existe 2 solutions, qui sont finalement assez similaires. En mettant la propriété Checked à True, l'évènement OnClick sera forcément déclenché, pas moyen d'y échapper. Donc les solutions consistent à empêcher l'exécution du code contenu dans la fonction de gestion de l'évènement.

Solution 1 : Supprimer la fonction de l'évènement avant de mettre la propriété Checked à True et remettre cette fonction sur l'évènement juste après.

Solution 2 (celle que j'utilise en général) : Mettre le tag du radiobutton à 1 avant de changer la propriété Checked et remettre le tag à 0 juste après. Dans la fonction de l'évènement OnClick, ajouter au tout début un test sur ce tag pour sortir s'il est égal à 1.

[DURVILLE]

MERCI .
Le tag semble effectivement là pour résoudre certains pb de programmation...
"pour les besoins des développeurs" dit l'aide Delphi ...
A mon sens pas très élégant mais efficace c'est tout ce que je demande à mon niveau !