TListView - Eintrag löschen hinterlässt "Loch"

[Dejan Vu]

Moinsen

Das standard TListView verhält sich beim ViewStyle 'vsIcon' und 'vsSmallIcon' wie Du es beschreibst: Es bleibt eine Lücke. Bei vsList und vsReport *nicht*, da ist es so wie erwartet.

Bei mir klappt das hier:

Delphi-Quellcode:

Procedure RemoveFromListView (LV : TListView; Index : Integer);
Var
  oldViewStyle : TViewStyle;

begin
  oldViewStyle := LV.ViewStyle;
  LV.Items.BeginUpdate;
  try
    LV.Items.Delete(Index);
    LV.ViewStyle := vsReport;
  finally
    LV.ViewStyle := oldViewStyle;
    LV.Items.EndUpdate;
  End;
end;