Im TMemo immer die letzte Zeile?

[smart]

Wie kann ich bei einem TMemo immer zur letzten Zeile scrollen?

Mit

Delphi-Quellcode:

with Memo1 do
  Memo1.Perform(WM_VSCROLL, SB_BOTTOM,0);

habe ich es versucht, klappt aber bei WIN 98 nicht so richtig.

Gruß
Heike

[stoxx]

Hi !

vielleicht als Notbehelf:
Eine Memo springt ja zum Ende, wenn eine Zeile angehangen wird.

Delphi-Quellcode:

  with Memo1 do begin
      lines.add('');
      lines.Delete(lines.count-1);
  end;

viele Grüße
stoxx

[Martin K]

Oder so:

Delphi-Quellcode:

with Memo1 do
begin
  SelStart := GetTextLen;
  SelLength := 1;
end;

Dann wird weder was hinzugefügt, noch wird was gelöscht

[stoxx]

Zitat:

Dann wird weder was hinzugefügt, noch wird was gelöscht

Aber ich habe doch NICHTS hinzugefügt und dann NICHTS wieder gelöscht

[Christian Seehase]

Moin Heike,

ich habe jetzt kein Win98 zur Hand um es auszuprobieren, aber funktioniert es SelStart auf das Ende des Memos zu setzen, und dann EM_SCROLLCARET aufzurufen?

BTW:
Probier's auch mal mit SendMessage statt Perform.
Sollte keinen Unterschied machen, aber ich habe schon erlebt, dass Perform nicht das tat was ich wollte, SendMessage hingegen schon.
(auch wenn ich mir nicht erklären konnte warum )