delphi - ItemIndexを使用するTDBComboBoxに相当するものはありますか？

Question

TDBComboBoxのヘルプファイルエントリには、選択したオプションのテキストがフィールドの新しい値になることが示されています。テキストの代わりにItemIndexを使用する同様のコントロールはありますか？（たとえば、列挙型を表すため。）

Answer 1

TDBLookupComboBox を試してください。ListField、DataField、および KeyField プロパティを確認してください。

Answer 2

TDBComboBox 項目に数字 ('0、'1'、'2'、...) を入力できますが、DBComboBox1.Style を csOwnerDrawFixed に設定し、OnItemDraw イベントを記述します。このようなもの：

procedure TForm1.DBComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Sender as TDBComboBox).Canvas do
  begin
    FillRect(Rect);
    TextRect(Rect, Rect.Left+1, Rect.Top+1, MyValueDescriptions[Index]);
  end;
end;