請問VisualReport的ScrollBar如何利用滑鼠控制上下捲動呢，現在都是用拉的
有辨法MouseWheel用嗎?

我沒用過 Visual Report 
不過...我想應該..原理都是一致的..
第一..
你可以去改寫 它的 Wndproc
去攔截它的 mouse 訊息 (這樣...只要你的mouse 在它上方有任何動作...)
都會被攔截到..
至於攔截到之後
可以仿效以下作法...

procedure TSomeObject.WindProc(var Message: TMessage);
begin
Case Message.Msg of
WM_MOUSEWHEEL : //代表接收到 滾輪訊息
begin
Case TWMMouseWheel(Message).WheelDelta of
120 : DoSomeThing_Up ; // 代表 滾輪向上
- 120 : DoSomeThing_Down; // 代表 滾輪向下
End;
end
Else
Inherited;
End;
end;

------
叔叔有練過,初學者不要學。

真快回覆謝謝^^，不過功力太淺在教一下吧^^
例如我要Form1的VertScrollBar跟這滑鼠動要怎麼做?
麻煩^^

Case TWMMouseWheel(Message).WheelDelta of
120 : DoSomeThing_Up ; // 代表 滾輪向上
- 120 : DoSomeThing_Down; // 代表 滾輪向下
End;

DoSomeThing_Up這是自己定義的嗎~~~

試出來怎麼讓form 跟這滑鼠動了，在試一下報表^^ 

既然 Form 可以了..
那我想..VisualReport 應該也可以 ...
因為...兩者都是可視覺化的(就是畫面上..可以被看得到的.)..
所以會對 mouse 的動作有所回應...也同樣可以攔截到訊息..
我只能說...加油點....再多思考一下...自己想出來的..比較不會忘..
我當初也是.....預祝你成功了

DoSomething_Up,DoSomeThing_Down =>是我在範例中....用來讓你瞭解....向上.做什麼事...向下又是做什麼事...的

------
叔叔有練過,初學者不要學。

編輯記錄

感謝您的回覆^^
我的Form是這樣寫
Case Message.Msg of
WM_MOUSEWHEEL : //代表接收到 滾輪訊息
begin
Case TWMMouseWheel(Message).WheelDelta of
120 : Form1.VertScrollBar.Position:=Form1.VertScrollBar.Position-10 ; // 代表 滾輪向上
- 120 : Form1.VertScrollBar.Position:=Form1.VertScrollBar.Position 10 ; // 代表 滾輪向下
end;
end
Else
Inherited;
end;

但Visuall Report找不到ScrollBar可控制，它是自動產生的，找不到有屬性有
請問有人知道嗎?還是本來就不可以控制。

把 Visuall Report 放到一個 ScrollBox 中，你只要控制 ScrollBox 的捲軸就好了

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

可以了耶真感謝sryang大大^^ 和chih_kuan 一起運用就可了