Existe-t-il un composant de groupe radio activé par les données associé à ItemIndex?

Question

Je remplace plusieurs composants d'un de mes formulaires par des versions avec données, et ce fut un peu surprenant que mon nouveau TDBRadioGroup ne soit pas lié au champ numérique auquel il était assigné. Il s'avère qu'au lieu de passer par la propriété ItemIndex, la "valeur" de TDBRadioGroup est stockée dans un TStrings que vous devez remplir manuellement. Je peux comprendre que ce serait utile dans certains cas, mais quand il est juste lié à un champ numérique, avoir à faire quelque chose comme ceci:

for i := 0 to myRadioGroup.Items.Count - 1 do 
     myRadioGroup.Values.Add(intToStr(i)); 

est un peu exagéré. Est-ce que quelqu'un sait d'un composant de groupe de radio activé par les données qui utilisera ItemIndex pour son paramètre de valeur?

Answer 1

Vous pouvez spécialiser un TDBRadioGroup et ajouter des valeurs Par Index, je vous suggère de remplacer l'événement procédure Loaded; passer outre;

procedure TMyDBRadioGroup.Loaded; override; 

var 
    I: Integer; 

begin 
    inherited; 
    Values.Clear; 
    for i := 0 toItems.Count - 1 do 
    Values.Add(intToStr(i)); 
end;