TScrollBar = class(TWinControl)
property Kind: TScrollBarKind; read write;
property Max: Integer; read write;
property Min: Integer; read write;
property Position: Integer; read write;
property OnChange: TNotifyEvent; read write;
property OnEnter: TNotifyEvent; read write;
property OnExit: TNotifyEvent; read write;
procedure SetParams(APosition, AMin, AMax: Integer);
property Ctl3D: Boolean; read write;
property DragCursor: Longint; read write;
property DragMode: TDragMode; read write;
property LargeChange: TScrollBarInc; read write;
property ParentCtl3D: Boolean; read write;
property PopupMenu: TPopupMenu; read write;
property SmallChange: TScrollBarInc; read write;
property OnDragDrop: TDragDropEvent; read write;
property OnDragOver: TDragOverEvent; read write;
property OnEndDrag: TEndDragEvent; read write;
property OnKeyDown: TKeyEvent; read write;
property OnKeyPress: TKeyPressEvent; read write;
property OnKeyUp: TKeyEvent; read write;
property OnScroll: TScrollEvent; read write;
property OnStartDrag: TStartDragEvent; read write;
end;
我找了一圈 都没找到滚动条样式的支持