关于ComboBox下拉框问题！找免费手机进销存软件

仓库管理软件版1楼: 关于ComboBox与Edit编辑框相关联的问题，我用ComboBox下拉框选择一条信息时，对应的Edit编辑框中的内容相应的改变！请问各位，这样如何实现？

2楼: Edit.text:=ComboBox.text 如知名erp软件

3楼: ComboBox.change事件里面

Edit.text:=ComboBox.text

4楼: Edit1.Text := ComboBox1.Text

5楼: 我是说，当ComboBox下拉框的内容变化时，Edit的值另外赋予一个新值，
如当ComboBox为“王明”，Edit变为“男”；ComboBox为“王利”，Edit变为“女”等，类似的变化！

6楼: ComboBox1.itemindex;

仓库管理软件版7楼: procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Edit1.text :=ComboBox1.text;
end;

8楼: 这个应该和一个数据库相关了1```在你从列表框中选择的时候即就是对数据进行查询,然后把性别字段的值读入编辑框即可~~~
这虽然是一个多工序的方法,但是这个方法一定可行的~~~~~[:)]

9楼: Type
Pperson =^Tperson;
Tperson = record
name: string;
sex: string;
end;
加入combobox列表
var
p: Pperson;
begin
new(p);
p.name:= ＇＇wangming＇＇;
p.sex:= ＇＇boy＇＇;
combobox1.items.addobjects(p.name, Tobject(p));
new(p);
p.name:= ＇＇wo＇＇;
p.sex:= ＇＇boy＇＇;
combobox1.items.addobjects(p.name, Tobject(p));
end;
访问列表
oncomboboxchange(sender: tobject);
begin
edit1.text := Pperson(combobox1.items.objects[combobox1.itemindex]).sex;
end;

没有经过调试，基本就是这么用的。
记住在用完之后，或者重新加载 combobox列表的时候，释放掉它的对象。
循环释放：
dispose(combobox1.items.objects[i])