如何让两个memo同时滚动滚动条

Question

如题比如我有两个memo，都是scrollboth的
然后我要实现，当拖动其中一个memo的滚动条的时候，另一个memo的滚动条跟随着一样一起滚动……
这个可以做到吗？怎么做

Answer 1

请参考这里
http://www.delphibbs.com/keylife/iblog_show.asp?xid=29190
平时有问题,多google，

Answer 2

以下演示 当Memo1垂直滚动时,Memo2也垂直滚动:
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FOldWndMethod : TWndMethod;
    procedure MemoProc(var Msg: TMessage);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MemoProc(var Msg: TMessage);
begin
  if (Msg.Msg = WM_VScroll) or (Msg.Msg = WM_MouseWheel) then
    Memo2.Perform(Msg.Msg, Msg.WParam, Msg.LParam);
  FOldWndMethod(Msg);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWndMethod := Memo1.WindowProc;
  Memo1.WindowProc := Self.MemoProc;
end;