Question

delphi中的form中的onMouseWheelup事件

x:= strtoint(edit1.Text);
x:=x+1;
edit1.Text:= inttostr(x);
为什么每滚动一次显示的数据都加倍，如x的初始值是0，滚动一次，edit
中显示的数据是2，再滚一次显示的数据时4，请问这应该怎么解决？
如果写成x:=x+2,那么现在没滚动易次数据加4，如现在滚动一次edit中显示的数据时4，再滚一次是8，总之滚动时加的数据都是我要求加的数据的2倍。

Answer 1

因为鼠标每滚动一次滚轮，会触发两遍 OnMouseWheelUp事件

解决方法，在事件最后再加一行代码

Handled := True;

Answer 2

楼上正解，，只因来迟