RichEdit runterscrollen

[toms]

Zitat:

so nach langem suchen hab ichs endlich gefunden.

Warum lange suchen? Hier steht's doch auch:

[S - tefano]

Hi,

nett von euch dass ihr euch noch bemüht habt ;-)
Leider funktionieren diese ganzen Caret-Messages bei mir komischerweise nicht.
Habs ein paar Tage später so gelöst:

Delphi-Quellcode:

procedure runterscrollen(TR: TCustomMemo; before: TWinControl);
var
  i: integer;
begin
  TR.SetFocus;
  Application.ProcessMessages;
  for i:= 1 to TR.Lines.Count do
  begin
    PostMessage(TR.Handle, WM_KEYDOWN, VK_DOWN, 0);
    PostMessage(TR.Handle, WM_KEYUP, VK_DOWN, 0);
    Application.ProcessMessages;
  end;
  PostMessage(TR.Handle, WM_KEYDOWN, VK_END, 0);
  PostMessage(TR.Handle, WM_KEYUP, VK_END, 0);
  if before <> nil then before.SetFocus;
end;

Ich sende also den nachUnten-Cursor an das (fokussierte) RichEdit so oft wie das R.E. Zeilen hat, gehe dann vorsichtshalber noch manuell ans Ende der Zeile (wenn ich später Text einfüge soll der ja ans Ende kommen) und gebe dann dem vorherigen Control den FOkus zurück.
N bisl arg improvisiert, aber läuft. ;-)

Bis dann,

S - tefano

[phXql]

Zitat:

Zitat von toms

Zitat:

so nach langem suchen hab ichs endlich gefunden.

Warum lange suchen? Hier steht's doch auch:

das kannte ich vorher noch nicht ;)