scrollbar

[grater83]

подскажитекак убрать горизонтальный scrollbar в listview
нашел ккак делать ,но чего то не убирает .может не так делаю

type     TNoHScrollListview = Class( TListview )
private
    Procedure WMNCCalcSize( Var msg: TMessage ); message WM_NCCALCSIZE;
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;

[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);  
end;

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

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

[grater83]

спасибо работает