Vertikalen Scrollbar in einem Listview verstecken?

[hitzi]

Hallo,

gibt es eine Möglichkeit den vertikalen Scrollbalken in eime ListView zu verstecken?

Diese Möglichkeit funktioniert bei mir nicht:

Delphi-Quellcode:

SetWindowLong(ListView1.Handle, GWL_STYLE, GetWindowLong(ListView1.Handle, GWL_STYLE) and not WS_VSCROLL);

Vielen Dank schonmal

MfG Hitzi

[APP]

Hallo Hitzi,
versuche es mal mit ...die horizontale/vertikale Scrollbar einer TListview verstecken? von den Schweizern, das funktioniert bestimmt.

[hitzi]

Danke für deine Antwort, nur leider funktioniert dieser Lösungsansatz in meinen Programm nicht.

Ich habe das Listview in einem Frame. Damit ich an das OnCreate Ereignis dieses Frames komme nutze ich folgen Code:

Delphi-Quellcode:

constructor Tframe_SQL.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  SQLDB := TSQLDB.Create;
  FShowHoriz := True; // show the horiz scrollbar
  FShowVert := False; // hide vert scrollbar
  //FListViewWndProc := lv_Ergebnis.WindowProc; // save old window proc
  //lv_Ergebnis.WindowProc := ListViewWndProc; // subclass
end;

destructor Tframe_SQL.Destroy();
begin
  //lv_Ergebnis.WindowProc := FListViewWndProc; // restore window proc
  //FListViewWndProc := nil;
  FreeAndNil(SQLDB);
  inherited Destroy;
end;

Wenn ich nun den von dir angesprochenen Code verwende und das Programm starte, dann wird das Programmfenster aufgebaut, aber das Listview wird nicht angezeigt. Die CPU Auslastung geht auf 100% hoch. Nach etwa 1-2 Minuten beruhigt sich das Ganze, aber das Listview macht sehr seltsame Effekte - z.B. nach dem Verschieben des Programmfensters wird das Listview nicht richtig refreshed und fängt lustig an rumzuwackeln. :stupid:

Gibt'S noch andere Lösungsvorschläge?

MfG Hitzi

[hitzi]

Problem gelöst.

Die Ursache meiner oben angesprochenen Probleme, war die ineffiziente ListViewWndProc.
Dank des Kommentares von Lars Kruger zu diesem Tipp auf SwissDelphiCenter, habe ich die ListViewWndProc wie folgt abgeändert:

Delphi-Quellcode:

if (Msg.Msg = WM_WINDOWPOSCHANGING) then 
    ShowScrollBar(lv_Ergebnis.Handle, SB_VERT, False); // hide horiz scrollbar
  FListViewWndProc(Msg); // process message

Nun funktioniert es :-D

Nochmal vielen Dank an App.


MfG Hitzi