定义两个外部函数声明
Function long GetWindowLong (ulong hWnd, int nIndex) Library "USER32.DLL" Alias for "GetWindowLongA"
Function long SetWindowLong (ulong hWnd, int nIndex, long dwNewLong) Library "USER32.DLL" Alias for "SetWindowLongA"
在程序中按照以下方法写
long ll_TVStyle
ll_TVStyle = GetWindowLong(Handle(tv_1),GWL_STYLE)
ll_TVStyle += TVS_NOHSCROLL
SetWindowLong(Handle(tv_1),GWL_STYLE,ll_TVStyle)