Cacher la barre horizontale dans un TListView

TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FListViewWndProc: TWndMethod;
procedure ListViewWndProc( var Message: TMessage);
public
end;

implementation

{$R *.DFM}

procedure TForm1.ListViewWndProc( var Message: TMessage);
begin
ShowScrollBar(ListView1.Handle, SB_HORZ, False); // cacher la barre horizontale
FListViewWndProc(Message); // process message
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.Items[0].Left := 300;
FListViewWndProc := ListView1.WindowProc; // enregistrer l'ancien windows proc.
ListView1.WindowProc := ListViewWndProc; // subclass
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ListView1.WindowProc := FListViewWndProc; // restaurerl'ancien windows proc.
FListViewWndProc := nil;
end;