Существует ли компонент радиогруппы с поддержкой данных, который проходит по ItemIndex?

Question

Я заменяю несколько компонентов в одной из моих форм версиями с поддержкой данных, и было немного удивительно, когда моя новая TDBRadioGroup не связалась с числовым полем, которому она была назначена. Оказывается, что вместо использования свойства ItemIndex «значение» TDBRadioGroup сохраняется в строках TS, которые необходимо заполнить вручную. Я могу понять, что это было бы полезно в некоторых случаях, но когда оно просто связано с числовым полем, нужно сделать что-то вроде этого:

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

отчасти излишне. Кто-нибудь знает о компоненте радиогруппы с поддержкой данных, который будет использовать ItemIndex для своего параметра значения?

Answer 1

Вы можете специализировать TDBRadioGroup и добавлять значения. По индексу я предлагаю переопределить событие процедура загружена; переопределить;

procedure TMyDBRadioGroup.Loaded; override;

var
  I: Integer;

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