[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    >I am trying to suppress the creation of the scrollbars that automatically
    >pop up in listboxes when the number of items in the listbox exceeds the
    >height of the listbox.  I would like to provide my own scroll bar elsewhere
    >on the form.

    unit NewListBox;
    interface
    uses
      Windows, Classes, StdCtrls, controls,checklst;
    type
      TNoVertListBox = class(TCheckListBox)
      protected
        procedure CreateParams(var Params: TCreateParams); override;
      end;
    procedure Register;
    implementation
    procedure TNoVertListBox.CreateParams(var Params: TCreateParams);
    begin
      inherited CreateParams(Params);
      CreateSubClass(Params, 'NoVertListBox');
      with Params do
      begin
        Style := Style and not WS_HSCROLL ;
        Style := Style and not WS_VSCROLL ;
      end;
    end;
    procedure Register;
    begin
      RegisterComponents('Standard', [TNoVertListBox]);
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]