Delphi

Вопрос

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

Peter Below