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)

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