Delphi TPageScroller 打造自動捲動工具列：滑鼠懸停觸發平滑捲動效果

元件組合

1. TImageList：存放工具按鈕圖示。
2. TToolBar：Images := ImageList1，AutoSize := True，右鍵加入多個 TToolButton 並設定 ImageIndex。
3. TPageScroller：Control := ToolBar1，AutoScroll := True（滑鼠懸停邊緣自動捲動），Orientation := soHorizontal。

設計時畫面

執行效果

• 工具列寬度 > PageScroller 寬度時，兩側出現捲動按鈕。
• AutoScroll := True：滑鼠移至捲動按鈕上方自動連續捲動。
• AutoScroll := False：需點擊捲動按鈕單步捲動。

進階客製化

• 捲動速度：PageScroller1.ScrollAmount := 20（像素/次）。
• 按鈕外觀：設定 PageScroller1.ButtonSize、自繪 OnPaint 替換預設三角箭頭。
• 垂直工具列：Orientation := soVertical，ToolBar1.Align := alLeft。
• 動態增減按鈕：運行時 ToolBar1.InsertButton/Delete，PageScroller 自動調整範圍。

原理說明

TPageScroller 內部建立兩個 TScrollBtn（繼承 TWinControl），在 WM_MOUSEMOVE / WM_TIMER 檢測滑鼠是否懸停於按鈕區域，啟動定時器呼叫 ScrollWindowEx 實現像素級平滑捲動，無需手寫捲動邏輯。