Abfrage ob GUI Control noch vorhanden ist.

[Jasocul]

Wenn ich das richtig sehe, ist das eine Routine im DataModul und das wird einem Event in "Screen" zugewiesen.

Man könnte natürlich mit einem Try..Except arbeiten, was meiner Meinung nach zwar der einfachste, aber "unschöne" Weg ist.
Ich würde aus dieser Routine eine Komponente machen und auf der jeweiligen Form platzieren. Alternativ wäre noch die Variante über einen ClassHelper für TForm denkbar.

[SneakyBagels]

Nur lößt das das Problem, dass <> nil durchrattert?

[Jasocul]

Ja. Wenn die Komponente nur noch auf der Form arbeitet, kann sie nicht mehr auf controls zugreifen, wenn die Form mit Free entfernt wurde.

[SneakyBagels]

Man könnte aber auch vorher prüfen, ob die Form noch existiert oder eher nicht?

[DeddyH]

Ein Dangling Pointer bleibt ein Dangling Pointer, egal welcher Typ dahintersteckt. Vielleicht könnte man aber überprüfen, ob das Fensterhandle von ActiveControl noch gültig 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.

[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.

[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