• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

DelphiXE2之FireMonkey入门(42)-控件基础:TComboBox、TComboEdit

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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;

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;

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap