[<<D>>]

У меня возникла не большая проблема. Я не
могу убрать ScrollBars на компоненте ListBox.
Кто знает помогите.

[Wipahacker]

Ну ты крут -------------!!!!!!!!!!------------!
Options->ScrollBars:=None;
Вот так!!!
-------------------------------------------------------

[Admin]

Сообщение от <<D>>

У меня возникла не большая проблема. Я не
могу убрать ScrollBars на компоненте ListBox.
Кто знает помогите.

1. Скопируй файл "StdCtrls.pas" в то место, где находится твой проект.
2. Замени в данном файле процедуру "TCustomListBox.CreateParams" на эту:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TCustomListBox.CreateParams(var Params: TCreateParams); type   PSelects = ^TSelects;   TSelects = array[Boolean] of DWORD; const   Styles: array[TListBoxStyle] of DWORD =     (0, LBS_OWNERDRAWFIXED, LBS_OWNERDRAWVARIABLE, LBS_OWNERDRAWFIXED,      LBS_OWNERDRAWFIXED);   Sorteds: array[Boolean] of DWORD = (0, LBS_SORT);   MultiSelects: array[Boolean] of DWORD = (0, LBS_MULTIPLESEL);   ExtendSelects: array[Boolean] of DWORD = (0, LBS_EXTENDEDSEL);   IntegralHeights: array[Boolean] of DWORD = (LBS_NOINTEGRALHEIGHT, 0);   MultiColumns: array[Boolean] of DWORD = (0, LBS_MULTICOLUMN);   TabStops: array[Boolean] of DWORD = (0, LBS_USETABSTOPS);   CSHREDRAW: array[Boolean] of DWORD = (CS_HREDRAW, 0);   Data: array[Boolean] of DWORD = (LBS_HASSTRINGS, LBS_NODATA); var   Selects: PSelects; begin   inherited CreateParams(Params);   CreateSubClass(Params, 'LISTBOX');   with Params do   begin     Selects := @MultiSelects;     if FExtendedSelect then Selects := @ExtendSelects;     Style := Style or (WS_HSCROLL {or WS_VSCROLL} or       Data[Self.Style in [lbVirtual, lbVirtualOwnerDraw]] or       LBS_NOTIFY) or Styles[FStyle] or Sorteds[FSorted] or       Selects^[FMultiSelect] or IntegralHeights[FIntegralHeight] or       MultiColumns[FColumns <> 0] or BorderStyles[FBorderStyle] or       TabStops[FTabWidth <> 0];     if NewStyleControls and Ctl3D and (FBorderStyle = bsSingle) then     begin       Style := Style and not WS_BORDER;       ExStyle := ExStyle or WS_EX_CLIENTEDGE;     end;     WindowClass.style := WindowClass.style and not (CSHREDRAW[UseRightToLeftAlignment] or CS_VREDRAW);   end; end;