1、
with ListBox1 do
if ItemIndex < Items.Count - 1 then
ItemIndex := ItemIndex + 1;
2、
var
P: TPoint;
I: Integer;
begin
with ListBox1 do
begin
I := Items.IndexOf('abc');
if I <> -1 then
ItemIndex := I;
end;
end;
如果能确定有'abc'项,可直接写ListBox1.ItemIndex := ListBox1.Items.IndexOf('abc');
建议先判断