FoxScrollBox
<p>FoxScrollBox,FoxUI提供的滚动容器组件
<strong>属性</strong>
Alpha 透明度</p>
<p>HorzSrcollBar 横向滚动条</p>
<p>VertScrollBar 竖向滚动条</p>
<p>Transparent 背景透明</p>
<p><strong>提供的事件</strong>
OnAfterDraw(Sender: TObject; DstBmp: TBitmap32;Arect: TRect);</p>
<p>OnBeforeDraw(Sender: TObject; DstBmp: TBitmap32;Arect: TRect);
内部绘制前后事件</p>
<p>OnBorderSelect 边框颜色输出触发</p>
<p>OnScroll 滚动事件</p>
<p>OnHorzScrollGetAlpha 横向滚动条动态设定透明</p>
<p>OnvertScrollGetAlpha 竖向滚动条动态设定透明</p>
<p>OnContentGetMaxSize 动态修改滚动条最大长度</p>
<p>OnMouseWhell 鼠标中键滚动事件 <strong>注意这个用来控制非FoxUI组件响应滚动条问题</strong>
如标准RichEdit
procedure TFrmParent.FoxScrollBox1MouseWhell(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
begin
//richedit有焦点 //鼠标在RichEdit范围内
if RichEdit1.Focused and PtInRect(RichEdit1.BoundsRect,MousePos) then
Handled:=True;
end;</p>