Interfaced Components

[Der schöne Günther]

Ein lebhaftes Beispiel: In einer Anwendung soll man eine Preisdifferenz einstellen können. Der eine mag es lieber mit einer Trackbar, der andere mit einem Spinedit, was auch immer.

Im Anhang das kleine Bild: Ich möchte ein Interface schaffen und die Komponenten (generell Frames) per Interface ansprechen.

Zur Erinnerung: Alles ab

Delphi-Quellcode:

TComponent

lässt sich per Interface referenzieren, aber ARC ist komplett abgeschaltet. Die Lebenszeit einer Komponente wird über den im Konstruktor angegebenen

Delphi-Quellcode:

Owner

bestimmt.

Mein Problem: Wie kann ich eine Komponente nun abräumen, wenn ich sie nur per Interface referenziere?

• Ich könnte eine Dispose()-Methode im Interface vorgeben. Nur damit bleibt die Möglichkeit, dass sich jemand anders die Komponente auch referenziert und dann auf einen Haufen Müll zeigt
• Die Dokumentation zu TComponent spricht: "Komplexere Komponenten sollten __AddRef überschreiben, um eine Referenzzählung zu implementieren." Ich würde ja gerne. Leider haben die Delphi-Jungs vergessen, die Methode virtuell zu machen.

Was kann ich tun?

[Sir Rufo]

Du sprichst hier ja von Controls und die müssen ja irgendwie angezeigt werden. Dazu muss der Parent gesetzt werden und damit werden auch die Childs abgeräumt, wenn der Parent entsorgt wird (und kein Owner vorhanden ist)

[Der schöne Günther]

Ja- Einmal erzeugen und bei Anwendungsende (alle Komponenten werden zerstört) klappt das auch ganz gut.

Ich möchte aber zur Laufzeit zwischen verschiedenen Anzeigeformen wechseln- Also die Komponente zur Laufzeit zerstören. Das bekomme ich nicht hin: Ein

Delphi-Quellcode:

SetParent(Nil)

entfernt die Komponente zwar optisch, zerstört sie aber nicht.

Per Design hat TComponent eine explizit bestimmte Lebenszeit. Interfaces benutzen ARC. Irgendwie kann das alles nicht klappen :-(


Update: Endlich doch mal etwas zu "Interface" und "TControl" gefunden. Sonst fand man immer nur etwas zu controls bei "user Interface".
(http://stackoverflow.com/q/2182612/2298252)
Da wühle ich mich mal durch...