2 TEdits synchron scrollen

[Flocke]

Pnt ist TPoint der die virtuellen Koordinaten der linken oberen Fensterecke des RichEdit in Relation zur linken oberen Ecke des Dokuments enthält. Stell dir dazu das Dokument z.B. als riesige Bitmap vor; dann ist der Punkt (Pnt.x, Pnt.y) der Punkt in der Bitmap, der in der linken oberen Fensterecke des RichEdit angezeigt wird.

Synchronisierung zweier RichEdits:

Delphi-Quellcode:

procedure Sync;
var x: TPoint;
begin
  GetRichEditScrollPos(RichEdit1, x);
  SetRichEditScrollPos(RichEdit2, x);
end;

Dieser Code würde die links oben angezeigte Ecke (die Scrollposition) von RichEdit2 auf die Position von RichEdit1 setzen. In deinem Beispiel wäre RichEdit2 die Vorgabe und RichEdit1 wäre das Eingabefenster.