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

时间:2008-12-12 18:31:27

标签: delphi data-aware radio-group

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

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

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

1 个答案:

答案 0 :(得分: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;
免费获取贴纸的机会↓↓↓
豫ICP备18024241号-1