Delphi ListView Scrollen per Code

Thema durchsuchen

Ansicht

Themen-Optionen

ListView Scrollen per Code

Ein Thema von Fukiszo · begonnen am 21. Jan 2018 · letzter Beitrag vom 22. Jan 2018

Vorheriger Beitrag

Nächster Beitrag

Uwe Raabe

Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.731 Beiträge

Delphi 12 Athens

AW: ListView Scrollen per Code

22. Jan 2018, 09:26

Es geht vielleicht auch noch einfacher, in dem man sich nur auf das aktuelle und das neue TopItem konzentriert:

markieren

Delphi-Quellcode:

			  DI := ListView1.ItemIndex - Succ(ListView1.VisibleRowCount) div 2; // Index des neuen TopItem

  R1 := ListView1.TopItem.DisplayRect(drSelectBounds); // Position des aktuellen TopItem

  R2 := ListView1.Items[DI].DisplayRect(drSelectBounds); // Position des neuen TopItem

  ListView1.Scroll(0, R2.Top - R1.Top);

Es fehlen noch ein paar Plausibilitätsprüfungen wie