Dynamisches Object: OnChange zuweisen?

[emteg]

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?

[marabu]

Zitat:

Zitat von emteg

Das geht so natürlich nicht, weil Sender ist ja nicht vom Typ TRichEdit.

Jetzt schon:

Delphi-Quellcode:

//diese procedure soll diesen quelltext ausführen
procedure TMainForm.ScrollDownInLogs(Sender: TObject);
begin
  with Sender as TRichEdit do
  begin
    Perform(EM_SCROLLCARET, 0, 0);
    SelStart := Length(Log.Text);
  end;
end;

Grüße vom marabu

[jbg]

Zitat:

Zitat von emteg

weil Sender ist ja nicht vom Typ TRichEdit.

So würde ich das nicht sagen. Die Variable Sender hat zwar den Typ TObject, aber dahinter verbirgt sich in deinem Fall ein TRichEdit. Um aus dem TObject nun auf das gesamte TRichEdit zugreifen zu können, muss du es einfach typecasten. Und dafür gibt es zwei Arten: Den harten Typecast bei dem auch wenn sich hinter Sender kein TRichEdit verbirgt wild drauf zugegriffen wird, was dann zu Speicherschutzverletzungen führt.

Delphi-Quellcode:

TRichEdit(Sender).SelStart := 10;

Und den as-Typecast, der vorher eine is-Abfrage durchführt und bei nicht-Übereinstimmung eine ECastError Exception wirft.

Delphi-Quellcode:

(Sender as TRichEdit).SelStart := 10;

Der harte Typecast ist schneller aber gefährlich, wenn nicht sichergestellt ist, das Sender wirklich ein TRichEdit ist. Der as-Operator is sicherer aber durch die zusätzliche is-Abfrage langsamer. Am besten ist also eine Kombination: Man frägt vorher in einer if-Abfrage mit is ab und macht dann harte Typecast in diesem if-Block, was sich aber erst aber mehreren Zeilen rentiert.

Delphi-Quellcode:

if Sender is TRichEdit then
begin
  TRichEdit(Sender).SelStart := 10;
  TRichEdit(Sender).SelLength := 100;
  TRichEdit(Sender).Color := clYellow;
end;