关于Delphi中FlatSB单元的用法。。。。。。

[winder_008]

dephi 的flatsb
提供了界面滚动条的平面化　但是怎么设置呢：：
FlatSB_EnableScrollBar: function(hWnd: HWND; wSBflags, wArrows: UINT): BOOL; stdcall;
{$EXTERNALSYM FlatSB_EnableScrollBar}
FlatSB_ShowScrollBar: function(hWnd: HWND; wBar: Integer; bShow: BOOL): BOOL; stdcall;
{$EXTERNALSYM FlatSB_ShowScrollBar}
FlatSB_GetScrollRange: function(hWnd: HWND; nBar: Integer; var lpMinPos,
lpMaxPos: Integer): BOOL; stdcall;
{$EXTERNALSYM FlatSB_GetScrollRange}
FlatSB_GetScrollInfo: function(hWnd: HWND; BarFlag: Integer;
var ScrollInfo: TScrollInfo): BOOL; stdcall;
{$EXTERNALSYM FlatSB_GetScrollInfo}
FlatSB_GetScrollPos: function(hWnd: HWND; nBar: Integer): Integer; stdcall;
{$EXTERNALSYM FlatSB_GetScrollPos}
FlatSB_SetScrollPos: function(hWnd: HWND; nBar, nPos: Integer;
bRedraw: BOOL): Integer; stdcall;
{$EXTERNALSYM FlatSB_SetScrollPos}
FlatSB_SetScrollInfo: function(hWnd: HWND; BarFlag: Integer;
const ScrollInfo: TScrollInfo; Redraw: BOOL): Integer; stdcall;
{$EXTERNALSYM FlatSB_SetScrollInfo}
FlatSB_SetScrollRange: function(hWnd: HWND; nBar, nMinPos, nMaxPos: Integer;
bRedraw: BOOL): BOOL; stdcall;
{$EXTERNALSYM FlatSB_SetScrollRange}

我用一些函数但是不能很平和　为什么　

如果有具体的用法　请贴出来。

[debussy]

uses FlatSB;


InitFlatSB(ListBox1.Handle);

就可以把ListBox1的卷滚条变成平面模式

[osborn]

InitFlatSB(ListBox1.Handle);之后，要用FlatSB_* 系列的滚动函数，而不能用SetScrollInfo, SetScrollPos等函数。我想应该是TListBox没有用FlatSB_* 系列的滚动函数出的问题，可以打开VCL看看。

[winder_008]

这个方法是可以但是在移动滚动条时有问题。

你可以试试。

其他函数怎么用

我在ａｃｔｉｖｅｆｏｒｍ中用　不行为什么？？？