ListView e ItemIndex

[roman]

Hola,

Noto un comportamiento extraño con el ListView, a ver si a alguien se le ocurre algo.

En un formulario tengo un ListView en modo vsReport con unos cuanto ítemes:



El único código que tengo es en el OnShow:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  ListView1.ItemIndex := 0;
end;

Al ejecutar, aparece seleccionado el primer elemento (como debe ser) y el foco del teclado lo tiene el ListView. Sin embargo, al presionar la tecla de dirección hacia abajo, no pasa nada; sólo la segunda vez que la presiono, la selección cambia al segundo elemento.

Si en el OnShow pongo ItemIndex en algún otro elemento:



al presionar por primera vez la tecla de dirección hacia abajo, lo que sucede es que la selección se mueve hacia el primer elemento, y a partir de ahí ya se recorre normalmente.

¿Alguien sabe qué ocurre y cómo puede solucionarse?

Trabajo con Delphi 7 en Windows Vista.

// Saludos