TMemo automatisch scrollen

[elmar.faber]

Hallo,

in einem XE3 Projekt scrolle ich automatisch an das untere Ende in einem Memo Feld:

LogMemo.VScrollBar.Value := LogMemo.VScrollBar.Max;

Unter XE7 ist aber VScrollbar Protected, wie scrolle ich hier automatisch ans Ende????

Viele Grüße

[Der schöne Günther]

LogMemo.GoToTextEnd(); ?

[elmar.faber]

Damit setzt ich den Cursor zwar ans Ende aber der sichtbare Bereich verändert sich leider nicht...

[BadenPower]

Zitat von elmar.faber:

Unter XE7 ist aber VScrollbar Protected, wie scrolle ich hier automatisch ans Ende????

Wenn VScrollbar nur Protected ist, dann mach sie doch mit einer Helperklasse von TMemo zugreifbar.

[baumina]

Ich mach das so:

Delphi-Quellcode:

        mem_input.SetFocus;
        mem_input.CaretPos := Point(0,Zeile);
        SendMessage(mem_input.Handle, EM_SCROLLCARET, 0, Zeile);

[Der schöne Günther]

Zitat von elmar.faber:

Damit setzt ich den Cursor zwar ans Ende aber der sichtbare Bereich verändert sich leider nicht...

Sicher? Bei mir springt er immer ans Ende des Textes sodass die letzten Zeichen sichtbar sind. Egal ob WordWrap an oder aus. Getestet auf Windows, XE7.

Zitat von baumina:

Ich mach das so:

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

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