让TComBoBox能够快速定位

有时TComBoBox下拉项目很多，例如超过100个，这时快速定位就很必要了。

将ComBoBox1.style:='csDropDown'，然后写：

//快速定位功能
procedure TNewBillFM.ComboBox2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
begin
    if KEY=13 then
    for i:=0 to ComboBox2.Items.Count-1 do

   begin
    if Pos(ComboBox2.Text,ComboBox2.Items[i])>0 then
    begin
       ComboBox2.ItemIndex:=i;
       ComboBox2.Text:=ComboBox2.Items[i];
       ComboBox2.DroppedDown:=True;
      Exit;
    end;
   end;
end;

//选择项目必须来源下拉选择

procedure TNewBillFM.ComboBox2Exit(Sender: TObject);
begin
   if ComboBox2.ItemIndex<0 then ComboBox2.Text:='';
end;