如何隐藏TreeView,ListView等带有标准滚动条窗体的滚动条

 

//  方法如下：     
//  引用了来自CSDN上的一个解决方法。
//  引用网址：http://topic.csdn.net/t/20060728/22/4912923.html
//  解决方法源代码如下：
//   TFrmVirtualListView   =   class(TForm)
//        ListView:   TListView;
//        procedure   ListViewData(Sender:   TObject;   Item:   TListItem);
//        procedure   FormCreate(Sender:   TObject);
//        procedure   FormDestroy(Sender:   TObject);
//    private
//        FListViewWndProc:   TWndMethod;
//        procedure   ListViewWndProc(var   Msg:   TMessage);
//    public
//        FShowHoriz:   Boolean;
//        FShowVert:   Boolean;
//    end;
// ......
//
//    procedure   TFrmVirtualListView.FormCreate(Sender:   TObject);
//    begin
//        ......
//        FShowHoriz   :=   False;
//        FShowVert   :=   False;
//        FListViewWndProc   :=   ListView.WindowProc;
//        ListView.WindowProc   :=   ListViewWndProc;
//        ......
//    end;
//
//    procedure   TFrmVirtualListView.ListViewWndProc(var   Msg:   TMessage);
//    begin
//    ShowScrollBar(ListView.Handle,   SB_HORZ,   FShowHoriz);
//    ShowScrollBar(ListView.Handle,   SB_VERT,   FShowVert);
//    FListViewWndProc(Msg);
//    end;
// ......
//
//