HScrollbar im ListView unterdrücken

[Jazzman_Marburg]

Liebe Gemeinde!

Ich breche mir gerade einen dabei ab, die horizontale Scrollbar in einem ListView (sowohl Delphi XE standard ListView als auch TMS AdvListView) zu unterdrücken. Beide ListViews haben leider keine Property die man setzen könnte. Mein ListView hat drei Columns und egal wie ich die Columns einrichte (width, autosize etc.) immer ist ein HScrollbar zu sehen -- obwohl nachweislich alle Einträge zu sehen sind und es dieses Scroolbars nicht bedürfte.
Nach einigem suchem im Netz fand ich folgenden Lösungsvorschlag:

Delphi-Quellcode:

  
{ Horizontal-Scrollbar im Listview verschwinden lassen ----------------------}
  ListView.Columns[0].Width := ColumnHeaderWidth;
  ListView.Columns[1].Width := ColumnHeaderWidth;
  ListView.Columns[2].Width := ColumnHeaderWidth;

Das funktioniert auch solange das ListView keine Daten enthält -- sobald man es aber mit einigen hundert Zeilen füllt führen die obigen Anweisungen zu 2-3min langen Pausen bis sich das ListView mit Daten gefüllt hat. Wie es scheint wird mit jeder neuen Zeile irgendwas angepasst und es kommt zu sehr, sehr langen Verzögerungen .

Jemand eine Idee wie man diese lästige HScrollbar verschwinden lassen kann, oder wie man obige "Lösung" ein weing performanter einsetzen kann?

Vielen Dank & Gruß
Jazzman

[rollstuhlfahrer]

Die Verzögerungen kann man mit .BeginUpdate und .EndUpdate verkleinern.

Bernhard

PS: Vielleicht gibt es eine Fensternachricht, die man an das Control schicken kann und dann verschwindet die H-Scrollbar.

[bernerbaer]

swissdelphicenter

[Jazzman_Marburg]

Zitat von bernerbaer:

swissdelphicenter

Merci an euch beide!

Gruß