Eigene Ereignisse für ein Object

[Captnemo]

Zitat von Zoot:

Zitat von Captnemo:

Ich habe zwar ein Function Add


Aber die wird nach dem Start nie aufgerufen, also mit den im OI vordefinierten Entries.

Versuchs mal mit dem Zauberwort "override" statt "virtual".

Geht nicht. Dann bekomme ich den Fehler: E2170 Ein nichtvirtuelle Methode kann nicht überschrieben werden.

[Bjoerk]

Diese OnEntryAdd wird dir für deine Zwecke (Verfügbar schon zur Designzeit ect.) nicht viel bringen. Such mal bei TCollection im OI ein entsprechendes Ereignis. Und spendier deinen desctructors mal ein override;

[Bjoerk]

Vielleicht auch so:

Delphi-Quellcode:

  TEntries=class(TCollection)
  private
    ..
  protected
    ..
    procedure Update(Item: TCollectionItem); override;
  end;

Die Update dann in Add und Insert aufrufen.

[Stevie]

Also, du brauchst:
- eine spezielle TCollectionItem Klasse, die eine entsprechendes "Item hat sich geändert" Methode bereitstellt, diese Methode leitet weiter an
- eine spezielle TCollection Klasse, in der diese Items sind, welche dann ein "Item hat sich geändert" Event bereitstellt.

Somit brauchst du nicht selbst an jedes Item einen Eventhandler anhängen, sondern die Items leiten diese Nachricht an ihre Collection weiter und diese kann dann den Eventhandler aufrufen.