Delphi ComboBox 模糊定位 高手请进

来源：百度知道 编辑：UC知道 时间：2024/06/03 17:03:27
我想在ComboBox的编辑框中输入内容时，下拉列表中会自动定位到第一个含有该内容的项目，按F3时跳到下一个含有该内容的项目。

注：我是仿做速达5000Pro中的物料清单查找
谢MyPrettyLife的帮助，我还要详细些，您再帮我看看怎么做？
我在编辑框中输入内容时（这时无需按F3键），下拉列表会自动弹下，在下拉列表自动定位到（高亮显示）第一个含有我输入内容的项目，按F3时跳到下一个含有我输入内容的项目，依此类推。敲击回车后，选定那个定位的项目，关闭下拉框！

//ComboBox 的 OnKeyDown 事件
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i: Integer;
begin
if Key = VK_F3 then
for i := ComboBox1.ItemIndex + 1 to ComboBox1.Items.Count - 1 do
if Pos(ComboBox1.Text, ComboBox1.Items[i]) > 0 then
begin
ComboBox1.ItemIndex := i;
Break;
end;
end;

用 ComboBox1.ItemIndex:=0; 就可以了！