ListView问题(100分)

1，如何禁止显示水平，垂直滚动条？
2，如何响应滚动条消息？

ShowScrollBar(listview1.Handle,SB_HORZ,false);
ShowScrollBar(listview1.Handle,SB_VERB,false);

在Application 的Onmessage写以下代码
if msg.hwnd=listview1.Handle then
begin
if (Msg.message = WM_HSCROLL) or (Msg.message = 161) then
begin
HScrollPos:=GetScrollPos(listview1.Handle,SB_HORZ);
end;
exit;
end;

用这个方法不能隐藏滚动条！
我刚试过(delphi5+w2kp)
我也想知道这个问题的答案！！！

大概是我放的位置不对，现在好了！
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;

多人接受答案了。