in TFont.OnChange auf Owner zugreifen

[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