Abfrage ob GUI Control noch vorhanden ist.

[himitsu]

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.