Ein Object in TObjectList<T> löschen mit Ereignis

[Jonas Shinaniganz]

Zitat:

Das OnDelete soll dann ausgeführt werden, wenn ein Object aus der ObjectList gelöscht wird.

Delphi-Quellcode:

TListe = class (TObjectList<TForm1>)
public
  procedure Delete(Index: Integer); overload;
end;

procedure TListe.Delete(Index: Integer);
begin
  inherited Delete(Index);
  ShowMessage('es wurde was gelöscht'); // oder OnDelete ??
end;

Delphi-Quellcode:

  Liste := TListe.Create;
  Liste.Add(Form1);
  Liste.Delete(0); // Es wurde was gelöscht

So hab Ich es jetzt verstanden... Also jetzt meldet die Liste was