销售管理软件版1楼: 例如ListBox中有axxxx,axxxx,axxxx,bxxxx,bxxxx等项目，当按下键a时，定位到第一个axxxx,再次按下a时，定位到第二个axxxx,等。怎样实现？

2楼: 将Listbox的style属性改为csDropDownList试试 如用友软件销售

3楼: 谢谢回答，我解决了AutoComplete:=false就可以了。分都给你

4楼: var
OldKey: char;

procedure TfrmCodingLab.lsBox1KeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
inf: Integer;
begin
inf:= lsBox1.ItemIndex + 1;
if Key = Oldkey then
for i:= inf to lsBox1.Items.Count -1 do
begin
if lsBox1.Items[i][1] = Oldkey then
begin
lsBox1.ItemIndex:= i;
Break;
end;
end
else
for i:= 0 to lsBox1.Items.Count -1 do
if lsBox1.Items[i][1] = Key then
begin
lsBox1.ItemIndex:= i;
Break;
end;
Oldkey:= Key;
end;

5楼: procedure TfrmCodingLab.lsBox1KeyPress(Sender: TObject; var Key: Char);
var
i: Integer;
begin
for i:= lsBox1.ItemIndex to lsBox1.Items.Count -1 do
if lsBox1.Items[i][1] = Key then
begin
lsBox1.ItemIndex:= i;
Break;
end;
end;
只要把autocompelete属性设为False就行了

6楼: 老板,结帐