Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox、TComboEdit
Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox、TComboEdit
涂孟超 发表于3年前
Delphi XE2 之 FireMonkey 入门(42) - 控件基础: TComboBox、TComboEdit
  • 发表于 3年前
  • 阅读 10
  • 收藏 0
  • 点赞 0
  • 评论 0

TListBox 有两个兄弟 TComboListBox、TComboEditListBox;
TComboBox、TComboEdit 虽不是不是从它们继承, 但分别包含了它们, 所以使用起来都有点像 TListBox.

TComboBox 更像 TListBox, 比 TComboEdit 多出了 Selected 等成员;
TComboEdit 是从 TCustomEdit 继承, 和 TEdit 是兄弟, 比 TComboBox 多出了 Text 等成员.

它们的公共常用属性:
DropDownCount //下拉列表行的数
ItemHeight    //
ItemIndex     //
Items         //
Count         //


测试:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  { ComboBox1 }
  for i := 0 to 9 do
    ComboBox1.Items.Add(Format('Item_%d', [i]));
  with ComboBox1 do
  begin
    ItemIndex := 0;
    DropDownCount := 5;
    ListBox.UseSmallScrollBars := True;
    TListBox(ListBox).AlternatingRowBackground := True; //这个兄弟转换用得有点悬, 只是为了让 AlternatingRowBackground 属性暴露出来
  end;

  { ComboEdit1 }
  ComboEdit1.Items.Assign(ComboBox1.Items);
  with ComboEdit1 do
  begin
    ItemIndex := 0;
    DropDownCount := 5;
    ListBox.UseSmallScrollBars := True;
    TListBox(ListBox).AlternatingRowBackground := True;
  end;
//  ComboEdit1.Text := 'Text';
end;

共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: