TJvListView: Eintrag wird nicht fokusiert

[Reinhardtinho]

Hallo zusammen,

Ich habe bei meinem Programm ein Problem festgestellt und dieses mal in einem einfachen Beispiel überprüft.
Dort tritt das Problem auch auf.

Mit folgendem Code, füge ich zwei Zeilen in ein ListView ein (vsReport).

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  ListItem : TListItem;
begin
  for i := 0 to 1 do
  begin
    ListItem := JvListView1.Items.Add;

    ListItem.Caption := IntToStr(i);
  end;

  ListItem.Selected := True;
  ListItem.Focused  := True;
end;

Wenn ich auf den Button klicke, wird aber der erste Eintrag fokusiert und nicht der zweite. (Fall1)
Klicke ich erneut drauf, wird der vierte fokusiert, also so, wie es sein soll. (Fall2)


Ist jemand in der Lage, dieses Problem zu lösen und bereit mir dabei zu helfen?


Vielen Dank und MFG
Lorenz


Anbei das Beispiel noch mal in Bildform. Für Fall 1 und Fall 2.

[Edit]Im Titel TListView durch TJvListView ersetzt. Scheint Sonderfall zu sein.[/Edit]