DBR Delphi-Ecke

// Eine Listbox wird (vertikal) von einer externen Scrollbar
// angesteuert. Dazu sollte man die interne Scrollbar der Listbox
// ausblenden. Siehe dazu Scrollbars einer ListBox einstellen

// Getestet mit D4 unter WinME

// Die Prozedur "Maxbestimmen" muss immer aufgerufen werden, wenn
// sich der Inhalt der Listbox ändert.
// Siehe dazu OnChange für Listboxen nachbilden

procedure MaxBestimmen(lb: TListbox; sb: TSCrollBar); 
var 
  hlp: integer; 
begin 
  hlp := lb.items.count - 
    lb.clientheight div (lb.itemrect(0).bottom - lb.itemrect(0).top); 
  if hlp < 0 then sb.max := 0 else 
    sb.max := hlp; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Scrollbar1.Kind := sbVertical; 
  MaxBestimmen(listbox1, scrollbar1); 
  scrollbar1.position := listbox1.topindex; 
end; 
 
procedure TForm1.ScrollBar1Change(Sender: TObject); 
begin 
  listbox1.topindex := scrollbar1.position; 
end;