当前位置：文江博客话题详情

是否有一个与 ItemIndex 等效的 TDBComboBox？

发布于 2024-07-08 09:54:37 字数 95 浏览 7 评论 0原文

在 TDBComboBox 的帮助文件条目中，它表示所选选项的文本将成为该字段的新值。是否有任何类似的控件通过 ItemIndex 而不是文本？（例如，表示枚举类型。）

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

信仰 2024-07-15 09:54:37

尝试 TDBLookupComboBox。查看 ListField、DataField 和 KeyField 属性。

回复收藏 0 原文

梦里°也失望 2024-07-15 09:54:37

您可以用数字（'0、'1'、'2'、...）填充 TDBComboBox 项目，但将 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;

You can fill TDBComboBox items with numbers ('0, '1', '2', ...), but set DBComboBox1.Style to csOwnerDrawFixed and write OnItemDraw event. Something like this:

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;

回复收藏 0 原文

~没有更多了~