大出血！！！ 我只有200分,只给一人 ***在线等***(100分)

L

lb3141

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #1

在ScorllBox中如何控制 MouseWheel

 

G

gztomash

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #2

够简单没有？！
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject;
Shift: TShiftState;
WheelDelta: Integer;
MousePos: TPoint;
var Handled: Boolean);
begin
ScrollBox1.VertScrollBar.Position :=
ScrollBox1.VertScrollBar.Position - WheelDelta div 4;
Handled := True;
end;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #3

> 只给一人
我相信那不是我。

 

L

lb3141

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #4

For gztomash
我试了，好象不行，它连断点都不进入，怎么回事？

 

G

gztomash

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #5

1) Delphi 的版本？
2) ScrollBox 的 OnMouseWheel 事件必须是焦点在ScrollBox内某个控件时才有效
（你开两个IE窗口试试看，IE也是这样的）

 

W

wwr74

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #6

看看你的鼠标是不是带有滚轮啊 ^_^

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-23

• #7

呵呵

 

C

coinage

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-07

• #8

ScorllBox不能控制 MouseWheel 吧，是过，无效，后改为窗体FORM的MouseWheel事件控制，
效果非常满意：
procedure TFormManHoleMap.FormMouseWheel(Sender: TObject;
Shift: TShiftState;
WheelDelta: Integer;
MousePos: TPoint;
var Handled: Boolean);
begin
Self.ScrollBox1.ScrollBy(0,WheelDelta div 15) ;
end;

 

L

lb3141

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #9

问题我已经解决了
不过各位的参与也不能白费力气
我散分了!!!

 

L

lb3141

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #10

多人接受答案了。

 

S

sungods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-10

• #11

UP有分吧~