delphi - 是否存在按 ItemIndex 的启用数据的单选组组件？

Question

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

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

有点矫枉过正。有谁知道将使用 ItemIndex 作为其值参数的启用数据的无线电组组件？

Answer 1

您可以专门化一个 TDBRadioGroup 并按索引添加值，我建议您覆盖事件过程 Loaded；覆盖；

procedure TMyDBRadioGroup.Loaded; override;

var
  I: Integer;

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