有关combobox控件的问题

Question

在OnEnter里加入:
var
  str:string;
  i:integer;
for i:=0 to combobox1.items.count-1 do
begin
  str:=ComboBox1.items[i];
  if Pos(ComboBox1.text,str)>0 then
  begin
     ComboBox1.ItemIndex:=i;
     Exit;
  end;
end;

Answer 1

把属性AutoComplete属性设置为True

Answer 2

想增强效果的话，还可以把AutoDropDown设置为True

Answer 3

delphi6中TComboBox1的AutoComplete属性设置为true就行了，Delphi5不知道有没有这个属性