desplazar listview para ver siempre ultimo

[ecfisa]

Hola alquimista.

Te pongo un ejemplo con un Timer que va creando items en un ListView, dejando seleccionado siempre el último:

Código Delphi [-]
...
implementation
var
  Con: Integer = 0;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  it: TListItem;
begin
  Inc(Con);
  it:= ListView1.Items.Add;
  it.Caption:= IntToStr(con);
  it.MakeVisible(False); // hace visible haciendo scroll si es necesario 
  it.Selected:= True;   //  lo selecciona
end;
...

Un saludo.