TRichEdit - veim Verlassen auf den Anfang des Dokuments springen

[motion]

Hallo,
ich verwende unter Delphi 12.2 TRichedit zur Anzeige/Eingabe von freien Texten mit Formatierungen.
Nun kann die Eingabe/Anzeige länger als die Höhe der Komponente auf dem Formular sein. Kann man ja drin rumscrollen.
Aber wenn das Element verlassen wird (OnExit), dann soll wieder zum Anfang des RTF gesprungen werden.
Wie macht man das?
Der Komponente mit perform eine Message schicken? Ich habe etwas rumprobiert, aber leider kein Erfolg.

Vielen Dank

[Kas Ob.]

Hi,

This works for me,

Delphi-Quellcode:

const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;

procedure RichEditScrollToPoint(ARichEdit: TRichEdit; X, Y: Integer);
var
  Pos: TPoint;
begin
  Pos.X := X;
  Pos.Y := Y;
  //PostMessage(RichEdit1.Handle,EM_SETSCROLLPOS,wParam(0),lParam(@FPos));  // ONLY use PostMessage if Pos is on the heap (not local var) !!
  // or
  SendMessage(ARichEdit.Handle, EM_SETSCROLLPOS, wParam(0), lParam(@Pos));
end;

procedure TForm10.RichEdit1Exit(Sender: TObject);
begin
  RichEditScrollToPoint(RichEdit1, 0, 0);
end;