//在你的h檔中加入如下~
private:        // User declarations
   TWndMethod RichEdit1ScrollBar;
   void __fastcall RichEdit1ScrollBarWinProcs(TMessage &Mes);
//cpp檔中~~
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   RichEdit1ScrollBar=RichEdit1->WindowProc;
   RichEdit1->WindowProc=RichEdit1ScrollBarWinProcs;
}
//--------------------------------------------------------------------
void __fastcall TForm1::RichEdit1ScrollBarWinProcs(TMessage &Mes)
{  int Rich1=0;
   int Rich2=0;
   RichEdit1ScrollBar(Mes);
   if(Mes.Msg==WM_VSCROLL)
   {
      Rich1=GetScrollPos(RichEdit1->Handle, SB_VERT);
      Rich2=GetScrollPos(RichEdit2->Handle, SB_VERT);
      if(Rich1!=Rich2)
      {
         RichEdit2->Perform(Mes.Msg,Mes.WParam,Mes.LParam);
      }
   }
}    

引言: rogan321兄，我試了你的方法，程式跟你一樣，但是拖曳其中一個RichEdit的捲軸後，另一個RichEdit的捲軸不會一起動，不知道是不是我有什麼地方沒注意到，可否指點一下呢？謝謝~

引言: rogan321兄，不好意思，你的方法可以了，是我自己的問題。 對了可否再請教一下，這種方法是移動完捲軸再放開後，另一個RichEdit的捲軸才會移動，可不可以在移動捲軸的同時，另一個RichEdit的捲軸也會跟著移動呢？不知有什麼方法呢？謝謝喔

          int tmp1=0;
     int iVPos1=0;
     int iVPos2=0;
void __fastcall TForm1::RichEdit1ScrollBarWinProcs(TMessage &Mes)
{
   RichEdit1ScrollBar(Mes);
   if(Mes.Msg==WM_VSCROLL)
   {  tmp1=iVPos1;
      iVPos1=GetScrollPos(RichEdit1->Handle, SB_VERT);
      iVPos2=GetScrollPos(RichEdit2->Handle, SB_VERT);
      if(iVPos1!=iVPos2)
      {
         RichEdit2->Perform(Mes.Msg,Mes.WParam,Mes.LParam);
         if(tmp1Handle,WM_VSCROLL,MAKELONG(SB_LINEDOWN,0),0);
         else
         SendMessage(RichEdit2->Handle,WM_VSCROLL,MAKELONG(SB_LINEUP,0),0);          }
   }    }