combox,listbox如何使用!
我想用用combox和listbox,
但是不知道如何使用,
对基本用法和属性都不知道,
请高手帮忙!
谢谢!
问题点数:10、回复次数:5Top
1 楼mikko11()回复于 2002-12-02 11:51:48 得分 0
建议你去看一下帮助Top
2 楼wangchinaking(助人为乐是快乐之本)回复于 2002-12-02 12:39:59 得分 4
ComboBox1.Item.Add ();//添加内容
ComboBox1.ItemIndex := -1 //or 0 or 1... <---指定显示哪一项内容
ComboBox1.Clear; //清除所有已经存在的内容
ListBox1.Add (); //添加内容
ListBox1.Clear ();//清空内容
这些是基本的东东,详细的请看联机帮助。Top
3 楼fat_rat_1980(fatrat)回复于 2002-12-02 14:33:54 得分 0
谢谢,
如何知道combobox的itemindex被用户选择改变了呢?Top
4 楼ghyghost(爱国人士-许愿池里的希腊老石头)回复于 2002-12-02 14:37:00 得分 6
{记住这个,对你有好处 property Items: TStrings;}
procedure TForm1.FormCreate(Sender: TObject);
begin
{添加数据}
form1.listbox1.Items.add('1');
form1.listbox1.Items.add('2');
form1.listbox1.Items.add('3');
form1.listbox1.Items.add('4');
form1.listbox1.Items.add('5');
form1.listbox1.Items.add('6');
form1.listbox1.Items.add('7');
form1.listbox1.Items.add('8');
form1.listbox1.Items.add('9');
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
{双击某个items然后删除}
form1.ListBox1.Items.Delete(listbox1.ItemIndex);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit1.text:=form1.listbox1.items.Strings[form1.ListBox1.itemindex];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.listbox1.Items[listbox1.itemindex]:=edit1.text; {修改数据}
end;
祝:身体健康,分数和答案同样重要:)
Top
5 楼fat_rat_1980(fatrat)回复于 2002-12-09 18:45:52 得分 0
很感谢!
Top




