Wegen TFontDialog das TFont Objekt Klonen

[gibb]

Hallo zusammen,

Folgendes Problem:

Ich habe ein tFontDialog welcher im gesamten Zeitraum nicht freigegeben werden soll und auch nicht wird.

Nun kann ich ja mit dem

Delphi-Quellcode:

FontDialog.Font := MyFont1; <- Setze den Wert zum Öffnen
FontDialog.execute <- Ausführen und Prüffen (hier einfachheitshalber nicht da)
MyFont1 := fontDialog.font <- setzen des neu ausgewählten Fonts.

Nun Folgendes Problem:

Ich habe ein 2 tes Font Property das ich gerne setzen würde. Dabei möchte ich den selben Dialog aufrufen...

ALso mach ich folgendes:

Delphi-Quellcode:

FontDialog.Font := MyFont2; <- Setze den Wert zum Öffnen
FontDialog.execute <- Ausführen und Prüffen (hier einfachheitshalber nicht da)
MyFont2 := fontDialog.font <- setzen des neu ausgewählten Fonts.

Nun hab ich aber das Problem das ich damit ich das MyFont1 Objekt überschreibe wenn ich beim FontDialog.Font := MyFont2 Setze da die Referenz noch auf MyFont1 steht.

Jetzt dachte ich, ich sei ein gewitzer Kerl und löse das Problem mit Assign.

FontDialog.Font.Assing(MyFont1/MyFont2);

schade nur das dass nicht funktioniert und der Effekt der Selbe bleibt.

Gibts jetzt ne einfache möglichkeit einen Klon von meinen MyFont Objekten zu übergeben und diese anschliessend wieder Freizugeben nachdem ich diese Auf MyFont gesetzt habe. Oder gibt es für das Problem sonst nen Hack ?

lg Gibb