Listbox Scrollbar wegmachen?

[APP]

Eigene Kompo ableiten:

Delphi-Quellcode:

type
  TNoVScrolllistbox = Class( TListBox )
  private
    procedure WMNCCalcSize( var msg: TMessage ); message WM_NCCALCSIZE;
  end;


procedure TNoVScrolllistbox.WMNCCalcSize(var msg: TMessage);
var
  style: Integer;
begin
  style := GetWindowLong( handle, GWL_STYLE );
  if (style and WS_VSCROLL) <> 0 then
    SetWindowLong( handle, GWL_STYLE, style and not WS_VSCROLL );
  inherited;
end;

Quelle:How to remove the scrollbar of a TListBox