Listbox Scrollbars ausschalten und automatisch scrollen!

[neolithos]

Delphi-Quellcode:

procedure TPictureList.WMNCCalcSize(var Message: TWMNCCalcSize);
begin
  inherited;
  if not lNormalScroll then
     with Message.CalcSize_Params^.rgrc[0] do
       // Scroll-Bar rausnehmen
       if GetWindowLong(Handle, GWL_STYLE) and WS_VSCROLL <> 0 then
          Inc(Right, GetSystemMetrics(SM_CXVScroll);
end;

Meinst du sowas