如何去掉listview组件的水平滚动条？

Question

就是无论什么情况下都不给这个组件显示水平滚动条
那个朋友知道？

Answer 1

procedure TFrmToolbar.ListViewAdvancedCustomDraw(Sender: TCustomListView; 
 const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean); 
begin 
   ShowScrollBar(sender.Handle,SB_HORZ,false);//隐藏水平滚动条 
   ShowScrollBar(sender.Handle,SB_VERT,false);//隐藏垂直滚动条 
   ShowScrollBar(sender.Handle,SB_BOTH,false);//隐藏所有滚动条 
end; 

Answer 2

楼上的可以，不过ListView的滚动条是在记录变化自动更新范围了，在重画中写也可以达到目的。