Zitat von
Christian Seehase:
Du könntest im TMyHintWindow.Create direkt die gewünschten Daten des Fonts eintragen.
Ich glaube, das will Tubos nicht, da er ja den Font zur Laufzeit ändern können möchte.
@Tubos:
Der Code sollte dahin, wo du dem Benutzer die Möglichkeit geben willst, einen neuen Font auszusuchen - also z.B. in ein Button.OnClick.
Fontdialog.Execute zeigt den Dialog an und gibt true zurück, falls der Benutzer OK gedrückt hat, sonst false. Wenn also der Font geändert wurde setze ich Application.ShowHint auf false und gleich wieder auf true, damit das HintWindow neu erzeugt und damit auch über TMyHintWindow.Create die neue Schrift eingesetzt wird.
"Electricity is actually made up of extremely tiny particles called electrons, that you cannot see with the naked eye unless you have been drinking." (Dave Barry)