Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Спрятать горизонтальную или вертикальную полосу прокрутки в TListView

01.01.2007
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; // show the horiz scrollbar
 
FShowVert := False; // hide vert scrollbar
 
FListViewWndProc := ListView1.WindowProc; // save old window proc
  ListView1
.WindowProc := ListViewWndProc; // subclass
end;
 
 procedure TForm1
.FormDestroy(Sender: TObject);
 
begin
   ListView1
.WindowProc := FListViewWndProc; // restore window proc
 
FListViewWndProc := nil;
 
end;

Взято с сайта: https://www.swissdelphicenter.ch