1.在Delphi中的下拉框的常用属性总结:
在Form窗体上拖放三个TCommboBox控件Name属性依次为:cbbyear,cbbmonth,cbbday。
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 2000 to 2013 do //添加年份
begin
cbbyear.Items.Add(IntToStr(i));
end;
for i := 1 to 12 do //添加月份
begin
cbbmonth.Items.Add(IntToStr(i));
end;
for i := 1 to 31 do //添加天数
begin
cbbday.Items.Add(IntToStr(i));
end;
end;
我们可以通过下拉框初始化值:
cbbday.SelText := '30';//那么运行后,日期的那个下拉框当前显示信息为:30.
获取下拉框的文本信息:
ShowMessage(cbbday.Text);
获取当前选中的索引下标:
ShowMessage(IntToStr(cbbday.ItemIndex)); //注:下标是从0开始的
Delphi中的基本控件之TComboBox的使用总结
最新推荐文章于 2020-05-01 18:54:09 发布