Bonjour
J'ai un RadioGroup (RGr) dont je rajoute à la demande les RadioButton
Ensuite j'affecte l'évenement onclick de chaque RadioButton à la même procedure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 While i <> ListResultat.Count do begin RGr.Items.Add(ListResultat.Strings[i]); inc(i); end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part for i:= 0 to RGr.Items.Count-1 do TRadioButton(RGr.Controls[i]).onclick:=RadioButtonOnClick;Donc théoriquement, je devrai avoir dans mon showmessage, l'index du radiobutton sur lequel je viens de cliquer. Non ??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure Tform1.RadioButtonOnClick(Sender: TObject); begin ShowMessage(IntToStr(RGr.itemindex)); end;
Ben j'obtiens toujours le même index : 1
Je comprends pas
Merci.
Partager