Memo enabled=false + Scrollbar

[Knotti2005]

Wie kann ich ein Memo erstellen welches nicht geändert werden kann also keine Benutzerinageb zulässig sind wo aber der Benutzer eine Verticale Scrollbar verschieben kann...

[Bernhard Geyer]

ReadOnly := True

[Knotti2005]

ja aber man kann trozdem noch die cuorsor Position setzen...

[Bernhard Geyer]

Zitat von Knotti2005:

ja aber man kann trozdem noch die cuorsor Position setzen...

Und was stört daran?
Du kannst ja im OnEnter-Event wieder ein anderes Control aktivieren.

[Deltachaos]

mal ne frage wie mache ich das das die scrollbar automatisch mit nach unten springt sobald ich text in das memo schreiben lasse

[toms]

Zitat von Deltachaos:

mal ne frage wie mache ich das das die scrollbar automatisch mit nach unten springt sobald ich text in das memo schreiben lasse

Bei mir geht die Scrollbar automatisch nach unten wenn ich mit

Memo1.lines.Add('test'); Text hinzufüge.

[Deltachaos]

Zitat von toms:

Zitat von Deltachaos:

mal ne frage wie mache ich das das die scrollbar automatisch mit nach unten springt sobald ich text in das memo schreiben lasse

Bei mir geht die Scrollbar automatisch nach unten wenn ich mit

Memo1.lines.Add('test'); Text hinzufüge.

Ich habe es jetzt so gelöst:

Wie kann ich zur ersten oder letzten Zeile im Memo scrollen?

Dafür gibt es die EM_LineScroll-Nachricht:

Delphi-Quellcode:

{zur ersten Zeile:}
  Memo1.Perform(EM_LineScroll, 0 , -Memo1.Lines.Count-1);
{zur letzen Zeile:}
  Memo1.Perform(EM_LineScroll, 0 , Memo1.Lines.Count-1);

Mit der EM_ScrollCaret-Nachricht scrollt man die aktuelle Cursorposition im Memo in die Anzeige:

  Memo1.Perform(EM_ScrollCaret, 0, 0); Quelle: http://www.delphi-fundgrube.de/faq15.htm#topic1504