Ich hab Deinen Code gerade ausprobiert. Das Aktive wird immer gelb gefärbt, ich such gerade noch wo dieses doActiveControlChange eigentlich herkommt.
Ansonsten, müßte sich mal der Threadersteller dazu äußern, was er jetzt eigentlich wollte.
Delphi-Quellcode:
Screen.OnActiveControlChange := doActiveControlChange
else
Screen.OnActiveControlChange := nil;
das habe ich wohl übersehn...