ComboBox的一个简单问题 怎么没人回答我啊? 找金蝶财务软件破解
库存管理软件版1楼: 在FormCreate过程中,我想初始化ComboBox显示为“请选择”,可是Combox显示为空,请问如何解决,以下是代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
bsSkinComboBox1.Text:=''请选择'';
end;
是不是ItemIndex的问题啊?
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(''asdf'');
//添加一个items
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(''asdf''));
end;//用户选择时删除程序添加的items
procedure TForm1.FormCreate(Sender: TObject);
begin
bsSkinComboBox1.Text:=''请选择'';
end;
是不是ItemIndex的问题啊?
2楼: 你第一项如果为"请选择"的话.
就itemindex:=0 如金碟财务软件迷你版
3楼: “请选择”不出现在下拉项中,仅仅是在创建窗体时显示
4楼: 在show之后做
5楼: procedure TForm1.FormCreate(Sender: TObject);
begin
bsSkinComboBox1.style := csDropDown;
bsSkinComboBox1.Text:=''请选择'';
end;
6楼: to Japhe:
提示错误:
[Error] Unit1.pas(32): Incompatible types: ''TbsSkinCustomComboBoxStyle'' and ''TComboBoxStyle''
库存管理软件版7楼: ComboBox不是有个属性text
你可以在设计是直接设为‘请选择''
8楼: combobox1.Items.Add(''请选择'')
9楼: 如果你的combobox是不让用户修改其参数的话可以用下面的方法。
ComboBox1.Items.add(''asdf'');
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(''asdf'');
//添加一个items
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(''asdf''));
end;//用户选择时删除程序添加的items
10楼: 如果你的combobox是可以让用户修改其参数的话,最简单了,直接把combobox 的style设置为 csDropDown然后在再修改text为‘请选择’就行
11楼: 谢谢,接受答案
12楼: 可能是你的style设置成csDropDownList了。。 如金蝶财务软件破解