scrollbox中的控件在获得焦点时,如果控件在显示区域外,scrollbox会自动滚动到焦点控件上,如何禁止这种自动滚动?
scrollbox中的控件在获得焦点时,如果控件在显示区域外,scrollbox会自动滚动到焦点控件上,如何禁止这种自动滚动?
[解决办法]
你肯定是想要消息拦截之类的实现代码,但是,其实下面这样简单地处理效果看起来是一样的:
procedure TForm1.Button2Click(Sender: TObject);
begin
ScrollBox1.AutoScroll := False;//滚动条消失
Button3.SetFocus;//得到焦点
ScrollBox1.AutoScroll := True;//滚动条又有了,但却没有滚动
end;
可以吗?