Delphi FAQ - Как убрать из ListView горизонтальный скролбар навсегда?

Written on 16 Сентября 2006. Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 73 из 86

Как убрать из 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;

by Peter Below

форум delphi