Memo: Nach Füllen 1. Zeile anzeigen

[Phillie08]

Guten Tag,
das folgende Problem ist für das Funktionieren des Programms nicht wesentlich, wohl aber für den Bedienungskomfort. Und es nervt mich, dass ich keine Lösung finden konnte.

Ich verwende unter anderem zwei Memos. Das erste wird gefüllt über das Laden einer Textdatei, hier gibt es kein Problem.
Das zweite entsteht, indem der Inhalt des ersten modifiziert und dann mit Hilfe von Memo2.Lines.Add in Memo2 geschrieben wird.
Das klappt zwar ebenfalls grundsätzlich, aber der Fokus liegt auf der letzten Zeile. Ab einer gewissen Zeilenanzahl wird also der Memo-Anfang nicht gezeigt, sondern muss per Scrollen angesteuert werden. Ich hätte es jedoch gern, dass beide Memos nach Befüllen die erste Zeile zeigen.

Ich habe bereits einiges probiert (SelStart zum Beispiel), nichts davon hat geholfen.

Beste Grüße,
Andreas

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