是否存在按ItemIndex进行的支持数据的无线电组组件？

Question

我正在使用支持数据的版本替换我的一个表单中的几个组件，当我的新TDBRadioGroup没有链接到它所分配的数字字段时，这有点令人惊讶。事实证明，不是通过ItemIndex属性，TDBRadioGroup的“值”存储在您必须手动填充的TStrings中。我可以理解这在某些情况下会很有用，但是当它只是链接到数字字段时，必须执行以下操作：

   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;