Dynamisches Object: OnChange zuweisen?

**emteg**

Ich möchte in dynamisch erstellten TRichEdit immer nach ganz unten scrollen, sobald sich am Text etwas ändert (OnChange).

markieren

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?

Dynamisches Object: OnChange zuweisen?

Dynamisches Object: OnChange zuweisen?

Forumregeln