Ce n'est pas dans ce sens qu'il faut raisonner.....
C'est plutot le click de ton radiobutton qui doit positionner la valeur de ton paramètre:
1 2
| monparam:=1;
MonRB1.checked:=true; // pour être en phase avec monparam |
puis, soit 1 procédure Onclick pour chaque RB dans laquelle tu repositionnes monparam, soit les 3 événementsOnclick pointent sur la même proc, et tu positionnes monparam selon le radiobutton qui a déclenché l'événement, genre
if (Sender as TRadiobutton).Name='MonRB1' then monparam:=1;
Et peut-être + "simple" (à tester):
1/ positionner le Tag de chaque radiobutton à la valeur que doit prendre le paramètre
2/ dans la procédure OnClick commune:
monparam:=(Sender as TradioButton).Tag;
A condition bien sûr de ne pas se servir du tag pour autre chose....
Partager