Erweitern einer Klasse um eine Methode

[3_of_8]

Ja: mit Events.

Delphi-Quellcode:

type
  TMensch=class(TObject)
  private
    FOnBla: TNotifyEvent;
  published
    property OnBla: TNotifyEvent read FOnInitialize write FOnInitialize;
  end;

Dann brauchst du eine geeignete Prozedur:

Delphi-Quellcode:

type
  TMenschEventProcedures=class
  public
    BlaMensch1: TNotifyEvent
  end;

implementation

procedure TMenschEventProcedures.BlaMensch1(Sender: TObject);
begin
//Tue irgendwas
end;

In TMensch kannst du dann das Ereignis OnBla folgendermaßen auslösen:

if assigned(FOnBla) then FOnBla(Self); BTW: In Delphi beginnen Klassen konventionsgemäß immer mit einem T.

@md_mse: Speak mit ea!

@Jan: So etwas wäre mit einer eigenen kleinen Scriptsprache deutlich eleganter. Hardcoding ist nicht besonders gut.