wie bereits gesagt, gehen tuts, aber da muss man eben sehr weit unten bzw oben in der klassenhierarchie ansetzen...
Oder das ganze wrappen:
Delphi-Quellcode:
type
TMyRichedit = class(TRichedit);
public
procedure CustomAddLine(s: string);
end;
procedure TMyRichedit.CustomAddLine(s: string);
begin
Showmessage(s);
self.Lines.Add(s);
end;
Dann muss da nix abgelitten werden, du musst nur im benutzenden Quelltext darauf achten, dass diese Funktion überall aufgerufen wird.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1