引言: 我有兩個大小一樣的Memo，要怎麼讓他們的ScrollBar同步? < face="Verdana, Arial, Helvetica">

NitRate2 你好:
(1)「同步」顧名思義應該是指滑鼠拖拉任何一個 Memo 的 ScrollBar，就會自
   動讓另外一個 Memo 的 ScrollBar 一起動作，而且兩個 Memo 的 ScrollBar
   的位置，要保持一致!!不知道你的意思是不是這個樣子？
( >
// >
    szText="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz">Lines->Add(IntToStr(i)+" - "+szText);
      Memo2->Lines->Add(IntToStr(i)+" - "+szText);
      Application->ProcessMessages();
   }       OldMemo1WndProc=Memo1->WindowProc;
   Memo1->WindowProc=NewMemo1WndProc;
   OldMemo2WndProc=Memo2->WindowProc;
   Memo2->WindowProc=NewMemo2WndProc; 
} 
void __fastcall TForm1::NewMemo1WndProc(TMessage &Message)
{
   OldMemo1WndProc(Message);
   if(Message.Msg==WM_VSCROLL)
   {
      int iVPos1=GetScrollPos(Memo1->Handle, SB_VERT);
      int iVPos2=GetScrollPos(Memo2->Handle, SB_VERT);
      if(iVPos1!=iVPos2)
      {
         Memo2->Perform(Message.Msg, Message.WParam, Message.LParam);
      }
   }
   if(Message.Msg==WM_HSCROLL)
   {
      int iHPos1=GetScrollPos(Memo1->Handle, SB_HORZ);
      int iHPos2=GetScrollPos(Memo2->Handle, SB_HORZ);
      if(iHPos1!=iHPos2)
      {
         Memo2->Perform(Message.Msg, Message.WParam, Message.LParam);
      }
   }
}
void __fastcall TForm1::NewMemo2WndProc(TMessage &Message)
{
   OldMemo2WndProc(Message);
   if(Message.Msg==WM_VSCROLL)
   {
      int iVPos1=GetScrollPos(Memo1->Handle, SB_VERT);
      int iVPos2=GetScrollPos(Memo2->Handle, SB_VERT);
      if(iVPos1!=iVPos2)
      {
         Memo1->Perform(Message.Msg, Message.WParam, Message.LParam);
      }
   }
   if(Message.Msg==WM_HSCROLL)
   {
      int iHPos1=GetScrollPos(Memo1->Handle, SB_HORZ);
      int iHPos2=GetScrollPos(Memo2->Handle, SB_HORZ);
      if(iHPos1!=iHPos2)
      {
         Memo1->Perform(Message.Msg, Message.WParam, Message.LParam);
      }
   }
} 
(3)請再依照自己的需求，自行修改
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --