1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

  private
    { Private-Deklarationen }
    PRichEdWndProc, POldWndProc: Pointer;
    procedure RichEdWndProc(var Msg: TMessage);

var vSyncron:boolean;
    Delta : integer; // Differenz der Zeilen

procedure TForm1.FormCreate(Sender: TObject);
begin
  vSynchron   := false;
  PRichEdWndProc := MakeObjectInstance(RichEdWndProc);
  POldWndProc    := Pointer(SetWindowLong(RichEdit1.Handle, GWL_WNDPROC,
                    Integer(PRichEdWndProc)));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(PRichEdWndProc) then
  begin
    SetWindowLong(RichEdit1.Handle, GWL_WNDPROC, Integer(POldWndProc));
    FreeObjectInstance(PRichEdWndProc);
  end;
end;

procedure TForm1.RichEdWndProc(var Msg: TMessage);
begin
  Msg.Result := CallWindowProc(POldWndProc, RichEdit1.Handle, Msg.Msg,
    Msg.wParam, Msg.lParam);

 if vSynchron=false then exit;
  if (Msg.Msg = WM_VSCROLL) and (LOWORD(Msg.wParam) = SB_THUMBTRACK) then
  begin   {Anzeige vertikal sychron verschieben}
//    Label1.Caption := 'Pos is ' + IntToStr(HIWORD(Msg.wParam));
    RichEdit2.Perform(Msg.Msg, Msg.wParam, Msg.lParam);
    SetScrollPos(RichEdit2.Handle, SB_VERT, HIWORD(Msg.wParam), True);
  end;

  {prüft ob Scroll über Schieberegler, bzw Pfeil li,re}
  if (Msg.Msg = WM_HSCROLL) and (LOWORD(Msg.wParam) = SB_THUMBTRACK){=5} then
   begin   {Anzeige horizontal sychron verschieben}
    RichEdit2.Perform(Msg.Msg, Msg.wParam, Msg.lParam);
    SetScrollPos(RichEdit2.Handle, SB_HORZ, HIWORD(Msg.lParam), True);
   end;                           {SB_VERT            .wParam}
end;					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.SynScrollClick(Sender: TObject);
begin
 vSynchron:= not vSynchron;
 if vSynchron=false
     then SynScroll.NumGlyphs:=4 
     else SynScroll.NumGlyphs:=1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

 procedure TForm1.RichEdWndProc(var Msg: TMessage);
begin
  Msg.Result := CallWindowProc(POldWndProc, RichEdit1.Handle, Msg.Msg,
    Msg.wParam, Msg.lParam);

 if vSynchron=false then exit;
  if (Msg.Msg = WM_VSCROLL) and (LOWORD(Msg.wParam) = SB_THUMBTRACK) then
  begin
    RichEdit2.Perform(Msg.Msg, Msg.wParam, Msg.lParam);
    SetScrollPos(RichEdit2.Handle, SB_VERT, HIWORD(Msg.wParam), True);
  end;					

1:

  SetScrollPos(RichEdit2.Handl e, SB_VERT, HIWORD(Msg.wParam) + Delta, True);					

1:
2:

RichEditEx1.SynchronObject := RichEditEx2;
RichEditEx1.SynchronPosY := true;					

1:
2:
3:
4:
5:
6:

function GetFiRow (Fn : TCustomMemo{TCustomRichEdit}) : LongInt;
{liefert die ZeilenNR in der der Cursor steht 0..n}
begin
  Result := SendMessage(Fn.Handle, EM_LINEFROMCHAR, Fn.SelStart, 0);
  if Result<0 then Result:=0;
end;