如何同时控制多个RichEdit同时换行（包括scrollbar)

Question

我想实现类似嗅探器中的
偏移地址  数据      Asc
0x0000   dfdfdfdf   adfacxv
0x0010   dfdfdfdd   cvcvccv
这种功能，其中每部分我分别使用了一个Richedit,scroolbar滚动时，或者在某个Richedit换行时需要3个RichEdit同步我单独采用一个scrollbar时，通过它控制RichEidt的scrollby(x,y)时，文字滚动不平滑，有残留的乱码，而且控制移动的长度也很繁琐希望使用某一个RichEdit的scrollbar同时控制多个RichEidt，但无法把3个绑定在一起大家什么好的方法？？？？？？？？？？？？？？？？？？？？？？？？

Answer 1

你试试在一个滚动时，以送消息给其它的RichEdit，或许可以；

Answer 2

to lianshaohua
  如何判断richeidt中的scrollbar的滚动？

Answer 3

手头没有Delphi，无法帮你测试，不过应该可以实现。我的想法是：用4个RichEdit,其中一个RichEdit隐藏，在三个RichEdit翻滚事件中写同样的代码，如果当前行数大于第四个的行数，则第四个行数增加，application.OnIdle中用自己写的过程，依次判断第四个RichEdit中哪个RichEdit行数比其小，则翻滚。

Answer 4

楼主我可以借你的地方问个问题吗？
我想知道怎样可以控制RICHEDIT的滚动条位置。

Answer 5

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.Lines.Count>RichEdit2.Lines.Count then
  begin
    RichEdit2.SetFocus;
    RichEdit2.Lines.Add(RichEdit1.Lines[RichEdit1.Lines.count-1]);
    RichEdit1.SetFocus;
    RichEdit1.SelStart:=Length(RichEdit1.Text);  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  For i:=0 to 100 do
  RichEdit1.Lines.Add(inttostr(i))
end;