？？简单ListBox问题 ？？

Question

请问：
1.如何将ListBox刚添加的一条选中并置为焦点？
2.如何将当前置为焦点的ListBox条目删除，删除后前一条置为焦点？

Answer 1

ListBox1.SetFocus;
ListBox1.Selected[ListBox1.Count-1] := true;
//-------------------------------------------------
ListBox1.DeleteSelected;
ListBox1.Selected[ListBox1.Count-1] := true;

Answer 2

1. ListBox1.Selected[ListBox1.Count - 1] := True;
2. for i := 0 to ListBox1.Count - 1 do
    if ListBox1.Selected[i] then
    begin
      ListBox1.DeleteSelected;
      ListBox1.Selected[i - 1] := True;
      Break;
    end;

Answer 3

测试了一下，楼上的很准确
用另一种方法也可以实现：
var i:Integer;
begin
i:=lst1.Items.Add('添加内容');
lst1.ItemIndex:=i;
end;
这样也可以添加一条选中当前添加的。