TScreen
OnActiveControlChange
OnActiveFormChange