我想了个方法,你参考下。 procedure TForm1.ComboBox1DropDown(Sender: TObject); var i:integer; begin //当下拉combobox,根据员工编号 显示其名字、性别(以下为例) for i:=0 to Combobox1.Items.Count-1 do Combobox1.Items[i]:=Combobox1.Items[i]+'-'+IntToStr(i); end; procedure TForm1.ComboBox1Select(Sender: TObject); var i,j:integer; begin j:=Combobox1.ItemIndex; //在选择的时候保存item指针 for i:=0 to Combobox1.Items.Count-1 do Combobox1.Items[i]:=IntToStr(i); //重新读取员工编号,不显示其名字、性别(举例) Combobox1.ItemIndex:=j; //读取编号完成后,显示所选择的item end;
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin //当下拉combobox,根据员工编号 显示其名字、性别(以下为例)
for i:=0 to Combobox1.Items.Count-1 do
Combobox1.Items[i]:=Combobox1.Items[i]+'-'+IntToStr(i);
end;
procedure TForm1.ComboBox1Select(Sender: TObject);
var
i,j:integer;
begin
j:=Combobox1.ItemIndex; //在选择的时候保存item指针
for i:=0 to Combobox1.Items.Count-1 do
Combobox1.Items[i]:=IntToStr(i); //重新读取员工编号,不显示其名字、性别(举例) Combobox1.ItemIndex:=j; //读取编号完成后,显示所选择的item
end;