Abfrage ob GUI Control noch vorhanden ist.

[stalkingwolf]

Die Abfrage hätte darin nichts zu suchen. Das ganze soll universell überall dort funktionieren wo unsere TDataModul eingebunden wird.
Wie oben geschrieben gab dies in Delph6 übersetzen Programmen auch nie ein Problem.
Das tritt erst auf seitdem wir Programme auf XE4 portiert haben.

try .. except bringt übrigens nichts. Das ist ja schon drin, ich hatte nur noch 2 abfragen davor gesetzt.

Eine eigene Komponenten dafür zu schreiben ist nachträglich nicht so leicht umsetzbar. Wir haben hunderte wenn nicht tausend Forms.
Vor allem so muss sich keiner Gedanken darum machen und es funktioniert auch sehr gut.

[Jasocul]

Das try musst du dann schon ganz an den Anfang setzen. Also noch vor if Sender <> nil

[stalkingwolf]

Zitat von 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.

Danke
Damit funktioniert es.

[himitsu]

TComponent.FreeNotification + TComponent.Notification
Wenn man das selber implementieren will.