Как убрать из ListView горизонтальный скроллбар
Как убрать из ListView горизонтальный скроллбар
Как убрать из 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;
