TMemo automatisch scrollen

[baumina]

Zitat von Der schöne Günther:

Damit werden wir wohl nicht weiterkommen, denn es geht um FireMonkey, nicht um die VCL.

Ist mir glatt entgangen.

[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!

[Der schöne Günther]

Ich wundere mich trotzdem immer noch- Er verschiebt bei dir wirklich den sichtbaren Bereich bei GoToTextEnd() nicht? Ich nutze XE7 ohne Update 1 und er tut es...