【结帖】scrollbox控件与鼠标滚轮无响应**

zykj_flame

鼠标滚动了
为什么SCROLLBOX没有相应的滚动?

是要设置什么属性的吗?

lixy

procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-4;
end;

procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position+4;
end;

zykj_flame

没效果
断点跟踪
在滚动鼠标的时候
根本就没有进来执行

lixy

2楼的代码是在delphi写的，我有重新在x3测试了。效果一样。
我在里面放了2个Tmemo控件，一个非常靠上，一个靠下，焦点放在某一个memo上就能滚动了。

zfang

还有问题吗，楼主？

zfang

由于楼主长期未反馈，先结帖！
有问题请重新开帖！