Verhalten bestehender Komponenten modifizieren

[general-e]

Hallo zusammen,

ich habe eine Komponenten (Quelltext vorhanden) bei der ich das Verhalten einzelner Properies ändern möchte.

Ich skizziere mal:

type TScheduler = class
private
  ...
public
  property Storage = TSchedulerStorage
  ...
end;

type TSchedulerStorage = class
private
  ...
public
  property Events[Index: Integer]: TSchedulerEvent;
  function CreateEvent:TSchedulerEvent;
  ...
end;

type TSchedulerEvent = class
private
  ...
public
  procedure Validate(); virtual;   
end;

Ich möchte hier die TSchedulerEvent.Validate() Procedure modifizieren ohne den original Quelltext zu ändern, wegen zukünftiger Updates. Aus dem selben Grund will ich jetzt nicht alle Units kopieren und anpassen.

Gibt es eine Möglichkeit (Classhelper / TMySchedulerEvent o.ä) ?

Danke

[Christian Marquardt]

OOP -> überschreiben

[general-e]

Schon klar, ich habe ein TMySchedulerEvent deklariert, aber das TSchedulerStoreage arbeitet intern immer noch mit TSchedulerEvent, also der originalen Procedure.

[Christian Marquardt]

Warum leitest du nicht TSchedulerStoreage ab und änderst darin dann nach TMySchedulerEvent.