Gibt es in Delphi ein Ereignis, das ausgelöst wird, wenn ActiveControl sich ändert?

Question

Ich möchte eine kleine Routine ausführen, wann immer sich die ActiveControl ändert. Wie kann ich das machen? Ich habe über einen Timer nachgedacht, der die aktive Kontrolle in bestimmten Intervallen überprüft und meine Routine feuert, wenn sie sich ändert, aber gibt es eine elegantere Lösung?

Answer 1

TScreen.OnActiveControlChange