Generics

[Zacherl]

Bist du sicher, dass BaseEvent nicht eigentlich function BaseEvent: T sein soll, statt procedure BaseEvent<T> ? Anders macht es nämlich nicht wirklich Sinn.

[TigerLilly]

Das passt schon so. Der Aufruf wäre so:

AttachEvent(grid.OnResize);

Und die Methode sichert den aktuellen Event in einer Liste und weist einen neuen Event zu - eben BaseEvent, der dann dafür sorgt, dass der alte Event und allfällige weitere aufgerufen wird.

Das war der Plan :- )

[Zacherl]

Result := BaseEvent klappt aber trotzdem nur, wenn BaseEvent eine function ist

[TigerLilly]

So geht´s natürlich - ohne Generics:

Delphi-Quellcode:

 TNotifyEventChain = class
    EventList: IList<TNotifyEvent>;
    constructor Create;
    destructor Destroy;
    procedure ChainEvent(NewEvent: TNotifyEvent);
    function AttachEvent(OldEvent:TNotifyEvent):TNotifyEvent;
    procedure BaseEvent(Sender:TObject);
  end;