yoghisan
Messages postés204Date d'inscriptionsamedi 10 mai 2003StatutMembreDernière intervention 2 juin 20051 7 févr. 2004 à 18:43
Ca va le faire ca :
procedure TForm1.Button1Click(Sender: TObject);
Var i:Integer;
begin
For i:=0 To ComponentCount-1 Do
If Components[i] Is TRadioGroup Then Showmessage( TRadioGroup(Components[i]).Name );
end;