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