Delphi-Quellcode:
uses Contnrs;
var originalColor : TColor;
CheckFree: TComponentList;
Delphi-Quellcode:
LastFocused := xxx;
CheckFree.Add(LastFocused);
Delphi-Quellcode:
if CheckFree.IndexOf(LastFocused) >= 0 then
LastFocused.Color := xxx;
Wird ein Objekt freigegeben, dann löscht es sich selber aus dieser Liste raus.