Memo: Nach Füllen 1. Zeile anzeigen

[RWarnecke]

Das sollte etwas für Dich sein.

[himitsu]

CaretPos und SelStart kommen aber praktisch auf das Selbe raus.

Es wird der Cursor neu positioniert.
- bei SelStart via Index über alle Zeichen
- bei CaretPos als X-Y-Position

Aber ScrollIntoView oder so, sollte es als Befehl geben.
Und vermutlich finden sich irgendwo auch Beispiele, wie man per Code scrollen kann.

PS: in der VCL weiß ich, daß das codeseitige Scrollen oftmals/manchmal nur funktioniert, wenn das Memo auch den Fokus besitzt.

[Phillie08]

Erst mal vielen Dank für beide Antworten.
Ich hätte womöglich erwähnen sollen, dass es sich um eine VCL-Anwendung handelt, nicht um FMX.
Den Vorschlag von himitsu werde ich mal näher unter die Suche nehmen, sobald ich Zeit habe, mich darum zu kümmern.
Danke also,
Andreas

[ASM]

Delphi-Quellcode:

 Memo1.Perform(EM_LineScroll, 0 , -Memo1.Lines.Count-1);
// Auf das Minuszeichen vor 'Memo1.Lines.Count-1' achten!

[himitsu]

Zitat von ASM:

Delphi-Quellcode:

 Memo1.Perform(EM_LineScroll, 0 , -Memo1.Lines.Count-1);
// Auf das Minuszeichen vor 'Memo1.Lines.Count-1' achten!

Sicher, daß da keine Klammer fehlt?

-(Memo1.Lines.Count-1)

[p80286]

ggf. mußt Du etwas ausführlicher arbeiten:

Delphi-Quellcode:

meinMemo.SelStart:= 0;
meinMemo.SelLength:= 0;
meinMemo.SetFocus;

Gruß
K-H

[baumina]

Delphi-Quellcode:

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

[Phillie08]

Erneut vielen Dank für eure Hilfe.
Dieses hier funktioniert, komischerweise nur teilweise, nämlich beim ersten mal. Ich muss mal etwas forschen, was da los ist.

Zitat von himitsu:

Zitat von ASM:

Delphi-Quellcode:

 Memo1.Perform(EM_LineScroll, 0 , -Memo1.Lines.Count-1);
// Auf das Minuszeichen vor 'Memo1.Lines.Count-1' achten!

Sicher, daß da keine Klammer fehlt?

-(Memo1.Lines.Count-1)

Ich habe die Anregung mit der Klammer, die mir einleuchtete, aufgegriffen: Memo2.Perform(EM_LineScroll, 0 , -(Memo2.Lines.Count-1));
Der Vorschlag von p80286 hat auch funktioniert.

Alles in allem: Gut zu wissen, dass man nach Jahr(zehnt)en Pause als Wiedereinsteiger hier Hilfe finden kann.
Gruß,
Andreas

[ASM]

Zitat von himitsu:

Zitat von ASM:

Delphi-Quellcode:

 Memo1.Perform(EM_LineScroll, 0 , -Memo1.Lines.Count-1);
// Auf das Minuszeichen vor 'Memo1.Lines.Count-1' achten!

Sicher, daß da keine Klammer fehlt?

-(Memo1.Lines.Count-1)

Der Einwand trifft zwar numerisch korrekt zu. Er ist aber im konkreten Fall de facto völlig belanglos, da ja logisch nicht vor die 1.Zeile gescrollt werden kann (man könnte anstelle "-(Memo1.Lines.Count-1)" auch ohne fatale Konsequenz schreiben "-1000", wenn überhaupt nur 10 Zeilen vorhanden wären).

[Furtbichler]

Zitat von ASM:

Er ist aber im konkreten Fall de facto völlig belanglos,

Na ja. Du lieferst ja auch nicht 100.000t Zement auf die Baustelle des Einfamilienhauses, obwohl im konkreten Fall de facto nur 15t verbaut werden.

Entweder schreibst Du '-MaxInt' hin oder machst es richtig.