ListView sempre com o ultimo item focado

[GuGaW]

aí galera

como posso fazer para que o listview fique sempre como o foco no ultimo item.

por exemplo, tenho um listview onde vou jogando itens de um pedido, onde o foco e a rolagem sempre ficam no primeiro item. precisso fazer com que na medida que eu for inserindo itens, o foco e a rolagem sempre fiquem la em baixo.

como posso fazer isso?

valeu...

GuGaW

[Clemente Silva]

É simples.

Sabendo que o Index do último item é igual a quantidae de itens no Listview, faça assim:

  Citação

Dim UltimoItem As Long

With ListView

    UltimoItem = .ListItems.Count

    .ListItems(UltimoItem).Selected = True

    .ListItems(UltimoItem).EnsureVisible

End With

Porém, um detalhe importante: certifique-se de que a propriedade HideSelection esteja com valor False.

E para melhorar "visualmente" a seleção do item, coloque a propriedade FullRowSelect para True.

[GuGaW]

aí Clemente Silva...

esqueci de dizer que estou programando em Delphi 7...

ha possibilidade de fazer o mesmo no Delphi?

já tentei de um monte de formas... mais nada...

Valeu

GuGaW