type

TMyListBox = class(TListBox)

protected

procedure CreateParams(var Params: TCreateParams); override;

end;



TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

FListBox: TMyListBox;

public

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



{ TMyListBox }



procedure TMyListBox.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.Style := Params.Style and not (WS_VSCROLL or WS_HSCROLL);

end;



{ TForm1 }



procedure TForm1.FormCreate(Sender: TObject);

var

I: Integer;

begin

FListBox := TMyListBox.Create(Self);

with FListBox do

begin

Left := 10;

Top := 10;

Height := 100;

Width := 150;

Parent := Self;

for I := 0 to 50 do

Items.Add(IntToStr(I));

end;



end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

FreeAndNil(FListBox);

end;



end.