5,927
社区成员




var
I,J: Integer;
begin
for I := 0 to 500 do
begin
with ListView1.Items.Add do
begin
Caption := IntToStr(I);
end;
end;
j := ListView1.Items.Count -1;
ListView1.Items[J].MakeVisible(True);//滚动到最后一条记录