C'è un evento in Delphi che si attiva quando ActiveControl cambia?

Question

Vorrei eseguire una piccola routine ogni volta che cambia ActiveControl. Come posso fare questo? Ho pensato di avere un timer che controlla il controllo attivo a determinati intervalli e spara la mia routine quando cambia, ma c'è una soluzione più elegante?

Answer 1

TScreen.OnActiveControlChange