Question

各位大虾，小弟有一疑惑，delphi中如何同时控制两个scrollbar控件，即我拖动第一个scrollbar，第二个也已

各位大虾，小弟有一疑惑，delphi中如何同时控制两个scrollbar控件，即我拖动第一个scrollbar，第二个也已同时按相同速度移动相同大小，而且这个scrollbar是tscrollbox中的，望赐教

Answer 1

可以通过 在scrollbar1控件的事件（onscroll或者onchange）中改变srollbar2的位置 （position），例如：
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
ScrollBar2.Position := ScrollBar1.Position;
end;

追问

但是这个scrollbar是tscrollbox中的，不是单独加入的

追答

可以再放一个scrollbar到scrollbox里去，设定位置：
scrollbar.align := alright; // 放在右边
scrollbar.kind := sbVertical; // 垂直
同理第二个也这样，然后同样用以下方法就可以了：
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
ScrollBar2.Position := ScrollBar1.Position;
end;

Answer 2

我觉得用什么工具实现其实不是最重要的。最重要的要对这些通信的内容要懂。