Ich möchte in dynamisch erstellten TRichEdit immer nach ganz unten scrollen, sobald sich am Text etwas ändert (OnChange).
Delphi-Quellcode:
//beim erstellen des TRichEdit, weise ich die procedure OnChange zu:
Channels[i].Log.OnChange:=MainForm.ScrollDownInLogs;
//diese procedure soll diesen quelltext ausführen
procedure TMainForm.ScrollDownInLogs(Sender: TObject);
begin
Sender.Perform(EM_SCROLLCARET, 0, 0);
Sender.SelStart:=length(Log.text);
end;
Das geht so natürlich nicht, weil Sender ist ja nicht vom Typ TRichEdit. Wie kann ichs trotzdem hinkriegen?