Moin ihr Schlafwandler.
OK, TFont hat zwar keinen Owner, aber ich hab in einer Klasse mehrere TFonts (diese werden auch in der Klasse erstellt und freigegeben)
und bei Änderungen an diesen Fonts müßte in der Klasse ein ereignis ausgelöst werden (eine Funktion ausgeführt).
Aktuell ha ich es erstmal über Erweiterung gemacht,
aber vielleicht geht es ja auch irgendwie direkt mit TFont?
Delphi-Quellcode:
Type TFontEx = Class(TFont)
Private
FOwner: TObject;
FTag: Integer;
Public
Property Owner: TObject Read FOwner Write FOwner;
Property Tag: Integer Read FTag Write FTag Default 0;
End;
Klassenintern arbeite ich mit TFontEx und nach außen hin caste ich es zurück nach TFont
und bei TFont.OnChange wird dann auf den Owner zugegriffen.
So, wie gesagt ...
gibt es da vielleicht eine bessere Methode, oder kann ich das beruhigt weiter so verwenden? (funktionieren tut es zumindestens so schonmal)
'ne schöne Nacht noch
himi
