TListView: ItemFocused fehlerhaft - wie korrigieren?

[marabu]

Oder so:

Delphi-Quellcode:

procedure TDemoForm.ListViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  with Sender as TListView do
    ItemFocused := GetItemAt(X, Y);
end;

Grüße vom marabu