有没有过滤下拉框的，根据输入的值自动过滤下拉框里的值？？？

Question

有方便，快速的方法吗

Answer 1

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(ComboBox1.Text);
end;

Answer 2

貌似 AutoComplete 属性就是干这个的吧，而且默认是 true

Answer 3

procedure TForm1.ComboBox1Change(Sender: TObject);
     function IsSame(Textstr,Itemstr:string):boolean;
     begin
     result:=false;
     if textstr=copy(itemstr,1,length(itemstr)) then
        result:=true;
     end;
var
i:integer;
begin
for i:=0 to combobox1.Items.Count-1 do
    if not issame(combobox1.Text,combobox1.Items[i]) then
       combobox1.Items.Delete(i);
end;