Listbox Scrollbars ausschalten und automatisch scrollen!

[Synonym]

Hi,


wie kann ich in der Listbox die Scrollbars ausschalten, dennoch automatisch scrollen lassen?


Synonym

[Synonym]

kann man die scrollbars überhaupt ausschalten?

synonym

[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