Delphi 窗体函数 ShowScrollBar 控制滚动条

API函数 函数来源：FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll"

constant long SB_HORZ = 0
constant long SB_VERT = 1
constant long SB_BOTH = 3
ShowScrollBar(Handle(Memo1),SB_HORZ,0);//隐藏水平滚动条 
ShowScrollBar(Handle(Memo1),SB_VERT,0);//隐藏垂直滚动条 
ShowScrollBar(Handle(Memo1),SB_BOTH,0);//隐藏所有滚动条

 

 例如：

ShowScrollBar(self.handle,0,False) ;　　//隐藏水平滚动条