Richedit automatisch immer ganz nach unten scrollen lassen

[freak1985]

hi,

mein problem:
ich füge am ENDE vom richedit immer wieder text dazu. wie kann ich es ermöglichen, dass das richedit IMMER nach unten scrollt, also immer ganz unten ist?

hab mit der SuFu nix gefunden, weiß auch nicht mehr was ich noch alles eingeben soll.


Kann mir jemand helfen?

[_Sebastian_]

Du kannst dem Richedit.SelStart den Lines.Count übergeben nachdem du dem Richedit etwas hinzugefügt hast.
Nachteil ist nur das das Richedit vorher den Focus bekommen muss.

[turboPASCAL]

http://www.delphipraxis.net/...

[freak1985]

hm, also irgendwie funzt das net so recht.

ich hab in dem Onkeypress von einem Edit foglendes:

Delphi-Quellcode:

  if Key = #13 then
  begin
    Richedit1.Text := Richedit1.Text + Edit1.Text + #13#10;
    Edit1.Clear;
    Edit1.SetFocus; 
    RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
    RichEdit1.SelStart:=length(RichEdit1.text);
  end;

aber nach unten scrollen tut der net

kann mir jemand sagen,w as daran falsch ist?

[Sharky]

Zitat von freak1985:

... kann mir jemand sagen,w as daran falsch ist?

Nichts

Spass bei seite. Der Code geht nur wenn Du die Eigenschaft .HideSelection des Richedits auf FALSE setzt.

[freak1985]

danke. das wars.

[Flocke]

... und so ist's noch ein bisschen effizienter (insb. wenn RichEdit1.Text ziemlich lang werden kann):

Delphi-Quellcode:

str := Edit1.Text + #13#10;

RichEdit1.SelStart := RichEdit1.Perform(WM_GETTEXTLENGTH, 0, 0);
RichEdit1.Perform(EM_REPLACESEL, 0, Integer(PChar(str)));
RichEdit1.SelStart := RichEdit1.Perform(WM_GETTEXTLENGTH, 0, 0);
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);

[freak1985]

okay danke für den tipp..

werd ich auch mal ausprobieren