tmemo cursor an erste stelle

[hardcorehorst]

schaut mal bitte

[marabu]

Es wird immer unverständlicher, was du willst.

Wenn du nur per Knopf eine neue Zeile am Anfang vom Memo einfügen willst, dann so:

Delphi-Quellcode:

Memo.Lines.Insert(0, 'NeueZeile');

marabu

[TeTSuO]

Ich glaube ich weis was hier gemeint war ich habe nämlich das gleiche Problem

Mein memo kann nur 3 Zeilen anzeigen
Wenn ich jetzt mehrere Zeilen einfüge
zeigt mein Memo die letzten 3 Zeilen an

ich will aber das der Anwender die ersten 3 Sieht

Den Cursor auf die 1. Position setzen mit

Delphi-Quellcode:

  ...
  Memo.SelStart=0;
  Memo.SetFocus;

funktioniert zwar aber die Scrollbar ist immer noch unten und nicht oben.
Gibt es da noch ne andere Funktion?

[TeTSuO]

Ich habs gefunden wen's interessiert

Dieser Code setzt die Scrollbar nach oben

Delphi-Quellcode:

SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, 0);

Ciao

[turboPASCAL]

Man(n) könnte ja auch:

Delphi-Quellcode:

MemoX.Perform(EM_LineScroll, 0, -MemoX.Lines.Count - 1);

[Lannes]

Hallo,

Zitat:

Zitat von hardcorehorst

...( 4 inklusive der blöden leeren letzten zeile)
...die blöde 4. zeile kann auch weg...

wenn es in den Zeilen Deines Memo keine Leerzeichen am Anfang und/oder Ende gibt die erhalten bleiben müssen kannst Du folgendes einbauen:

Zitat:

Zitat von Delphi-Hilfe

Die Funktion Trim entfernt alle am Anfang und Ende eines Strings vorhandenen Leer- und Steuerzeichen.

Delphi-Quellcode:

Memo1.Text := Trim(Memo1.Text);

willst Du eventuelle Leerzeichen erhalten, dann nimm diesen Code:

Delphi-Quellcode:

Memo1.Text := Copy(Memo1.Text,1,Length(Memo1.Text)-2);

Es werden die letzten beiden Steuerzeichen, die diesen "blöden" Zeilenumbruch erzeugen gelöscht.

Diese erste Zeile die Du löschen möchtest, ist in der Eigenschaft Lines deines Memo eingetragen.
Diesen Eintrag kannst Du im Objekt-Inspektor löschen, indem Du hinter der Eigenschaft Lines den Stringlisten-Editor aufrufst und den Eintrag entfernst.

Wenn beide Zeilen, die Erste und Letzte gelöscht sind, brauchst Du auch nichts mehr zum Scrollen. :wink: