TMemo automatisch scrollen

[elmar.faber]

So der Tip mit der Helperklasse hat mir die Lösung gebracht:

Delphi-Quellcode:

unit MemoHelperU;

interface

Uses System.Classes, FMX.Memo, FMX.Layouts;

type
  TMemoHelper = class helper for FMX.Memo.TMemo
  private

  published
    procedure AutoScroll;

  end;

implementation

procedure TMemoHelper.AutoScroll;
Begin
  if Self.VScrollBar = nil then
    ApplyStyleLookup;

  if Self.VScrollBar <> nil then Begin
    Self.GoToTextEnd;
    Self.VScrollBar.Value := Self.VScrollBar.Max;
    Self.Repaint;
  End;
End;

Dann erfolgt der Aufruf im Programmcode nur noch mit

LogMemo.AutoScroll

Vielen Dank für die Hilfe!