如何使ScrollBox支持鼠标滑轮？(50分)

P

piip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #1

如何使ScrollBox支持鼠标滑轮？用第三方控件也可以呀。急急急!!!!

 

P

piip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #2

没有人回答吗？

 

P

piip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #3

难道这个问题非常难吗？

 

P

piip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #4

就像IE一样，当鼠标滚轮滑动时，滚动条自动上下滚动。

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #5

只要系统中能用，没理由自己程序中的scrollbox反映不了吧
只要scrollbox获得焦点应该可以的
我也不太清楚，只是说说想法，不对别打我哦：）

 

G

Gingerzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #6

procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if WheelDelta < 0 then
ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
else
ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;

 

P

piip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #7

本人贴出一个问题，没想到连在这里一整天才有个回答一个完整的答案。