ListView - убрать скролл.

[Belfigor]

Не знаю как бороться с горизонтальным скроллом в этой ситуации (на скринах)
Я создаю ListView, по высоте он может отобразить всего 4 строки, когда я добавляю 5-ю строку, у меня автоматом появляются 2 скролл бара, вертикальный и горизонтальный. Вертикальный это хорошо. А вот как избавиться от горизонтального?

[artemavd]

type
   TForm1 = class(TForm)
     ListView1: TListView;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
     FListViewWndProc: TWndMethod;
     procedure ListViewWndProc(var Msg: TMessage);
   public
    { Private declarations }
     FShowHoriz: Boolean;
     FShowVert: Boolean;
   end;

    var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.ListViewWndProc(var Msg: TMessage);
 begin
   ShowScrollBar(ListView1.Handle, SB_HORZ, FShowHoriz);
   ShowScrollBar(ListView1.Handle, SB_VERT, FShowVert);
   FListViewWndProc(Msg); // process message 
end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   FShowHoriz := True; // показать горизонтальный скролбар 
  FShowVert := False; // hide vert scrollbar 
  FListViewWndProc := ListView1.WindowProc; 
  ListView1.WindowProc := ListViewWndProc; 
end;

 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   ListView1.WindowProc := FListViewWndProc; 
  FListViewWndProc := nil;
 end;

[mihali4]

Как убрать из ListView горизонтальный скроллбар

type
TNoHScrollListview = Class( TListview )
private
Procedure WMNCCalcSize( Var msg: TMessage ); message WM_NCCALCSIZE;
end;



procedure TNoHScrollListview.WMNCCalcSize(var msg: TMessage);
var
style: Integer;
begin
style := getWindowLong( handle, GWL_STYLE );
If (style and WS_HSCROLL) <> 0 Then
SetWindowLong( handle, GWL_STYLE, style and not WS_HSCROLL );
inherited;
end;

[Belfigor]

Спасибо, буду экспериментировать