Wie Objekte in ObjectList identifizieren?

[Jazzman_Marburg]

Hallo Gemeinde!

Folgendes konzeptuelle Problem plagt mich:
In meinem Programm erzeugt der User durch einen Maus-Klick Buttons (TSpeedButton) durch:

Delphi-Quellcode:

PROCEDURE TMyClass.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

BEGIN

    FObjContainer.ADD(TSpeedbutton.CREATE( Self ));   // Button im Objekt-Container

    FAnzObj := FObjContainer.Count;

    WITH TSpeedbutton(FObjContainer.Items[FAnzObj-1]) DO // Durch FAnzObj Zugriff auf das eben erzeugte Objekt
    ...

D.h. es wird ein SpeedButton erzeugt und zum Objekt-Container (TObjectList) hinzugefügt. Auf dieses gerade erzeugte Objekt kann ich dann mit der oben gezeigten WITH Anweisung schön zugreifen.
Nun aber das Problem: Wenn der User die rechte Maus-Taste betätigt, soll das Objekt, auf welchem sich Maus befindet, gelöscht werden:

Delphi-Quellcode:

PROCEDURE TMyClass.BtnMouseUp(Sender: TObject; Button: TMouseButton;
                                 Shift: TShiftState; X, Y: Integer);

BEGIN

  IF Button = mbRight THEN
  BEGIN

    ( SENDER AS TSpeedButton ).FREE; // Der Button, der dieses Ereignis ausgelöst hat, wird gelöscht
    ...

Nun möchte ich aber das betreffende Objekt auch aus dem Objekt-Container löschen -- nur welches bzw. es existiert ja doch garnicht mehr, oder?
Die oben gezeigte Methode das Objekt mittels FREE loszuwerden ist ja auch nur ein Umweg: stattdessen sollte das Löschen ja direkt im Objekt-Container geschehen -- da ich aber nicht weiß wie ich dieses Objekt auf welchem die Maus sitzt identifizieren kann, habe ich es so gemacht -- dabei geht mir gerade durch den Kopf: Habe ich dadurch im Objekt-Container ein Zombie-Button erzeugt? Ich meine ich habe ja das Objekt mit ( SENDER AS TSpeedButton ).FREE; gelöscht -- aber im Objekt-Container existiert es ja noch, irgendwie...

Vielleicht kann ja jemand mal Licht in diese gruselige Geschichte bringen?

Vielen Dank & Gruß
Jazzman

[Bummi]

Statt TObject(Sender).Free
TObject(Sender) an eine Routine übergeben die das Objekt aus der Liste entfernt (langt bei FOb.OwnsObjects := true) ansonsten hinterher freigeben.

[Jazzman_Marburg]

Zitat von Bummi:

Statt TObject(Sender).Free
TObject(Sender) an eine Routine übergeben die das Objekt aus der Liste entfernt (langt bei FOb.OwnsObjects := true) ansonsten hinterher freigeben.

Ich glaube, das habe ich nicht verstanden: "...an eine Routine übergeben die das Objekt aus der Liste entfernt"
Und woher weiss diese Routine, welches Objekt aus der Liste zu löschen ist? Ich dachte das sei ja mein Problem?! Woher soll diese Routine es wissen, wenn ich es doch auch nicht weiß?

Grübelnd
Jazzman

[Satty67]

was ergibt
ObjektList.Items.IndexOf(Sender) .

[Sir Rufo]

Es soll ja ungemein bildend sein, die Hilfe zu Rate zu ziehen.

Dann findet man auch so tolle Sachen wie IndexOf und Delete

Möglich ist aber auch

Delphi-Quellcode:

theList.Remove( Sender );
Sender.Free;

[Jazzman_Marburg]

Zitat von Satty67:

was ergibt
ObjektList.Items.IndexOf(Sender) .

Schon gut, schon gut!
Jetzt habe ich es auch verstanden!

Vielen Dank -- ich hab da echt gepennt!

Gruß
Jazzman

[Bummi]

@Sir Rufo

wobei
Sender.Free; wenn er die Standarddeinstellungen der Objektlist nicht verändert hat das nächste Problem für Ihn wird.

[Sir Rufo]

Zitat von Bummi:

@Sir Rufo

wobei
Sender.Free; wenn er die Standarddeinstellungen der Objektlist nicht verändert hat das nächste Problem für Ihn wird.

Wo ich es geschrieben hatte, kam mir auch der Gedanke, ob Remove nun bei OwnsObjects das Object nicht auch gleich ins Nirwana befördert.
Jo, wenn es sicher sein soll, dann mit Extract und dann Free, oder doch mit Remove und nur wenn not OwnsObjects, dann Free

Wenn du wüsstest, wo ich mich gerade befinde, würdest du dich darüber auch nicht wundern

[Bummi]

Zitat:

Wenn du wüsstest, wo ich mich gerade befinde, würdest du dich darüber auch nicht wundern

[OT]
neugierig machen gilt nicht
[/OT]

[Jazzman_Marburg]

Zitat von Bummi:

@Sir Rufo

wobei
Sender.Free; wenn er die Standarddeinstellungen der Objektlist nicht verändert hat das nächste Problem für Ihn wird.

Ganz bestimmt wird es für ihn ein Problem -- aber da lassen wir ihn erstmal reinlaufen...

Gruß
Jazzman