in TFont.OnChange auf Owner zugreifen

[himitsu]

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

[alzaimar]

Verwende doch einfach das Observer-Pattern.

Die Verwendung des Observer-Musters hat ggü Deiner Idee den Vorteil, das sie flexibler ist, da nicht nur 'Owner' benachrichtigt werden können.

Wenn Du allerdings garantiert nur einen 'Owner' hast, würde ich im 'Owner' ein FontChange-Ereignis einrichten und das direkt mit dem OnChange-Ereignis des TFonts verbinden.

[himitsu]

Soein OnChange-Ereignis hab ich ja im Owner ... und es ibt auch nur einen Owner, aber dafür mehrere Fonts, welche auf den Owner, über die selbe Routine zugreifen ... was allerdings kein Problem darstellt, da ich ja an den Font rankomm (siehe Sender).

*schuppen von augen fällt*
bin ich blöd ... ganz vergessen, daß die Objectrefferenz ja mit in der Ereignisprozedur (bzw. sozusagen im Zeiger darauf) gespeichert wird

Delphi-Quellcode:

// vorher

Procedure TCircuitDesigner.OnFontChange(Sender: TObject);
  Begin
    With TCircuitDesigner(TFontEx(Sender).Owner) do Begin
      DoLibraryChange;
      DoCircuitChange;
    End;
  End;

// jetzt

Procedure TCircuitDesigner.OnFontChange(Sender: TObject);
  Begin
    DoLibraryChange;
    DoCircuitChange;
  End;

manchma macht man sich echt mehr Arbeit, als nötig


gelöst ... gab nur selbstgemachte Probleme