Einzelnen Beitrag anzeigen

Benutzerbild von hitzi
hitzi

Registriert seit: 2. Jan 2003
Ort: Eibau
768 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Vertikalen Scrollbar in einem Listview verstecken?

  Alt 5. Jan 2004, 12:10
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.

Gibt'S noch andere Lösungsvorschläge?

MfG Hitzi
Thomas
  Mit Zitat antworten Zitat