delphi - ItemIndex を使用するデータ対応のラジオ グループ コンポーネントは存在しますか?

Question

フォームの 1 つのいくつかのコンポーネントをデータ対応バージョンに置き換えていますが、新しい TDBRadioGroup が割り当てられた数値フィールドとリンクしていないことに少し驚きました。ItemIndex プロパティを使用する代わりに、TDBRadioGroup の「値」が 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;