Event handler dynamisch setzen

[Uwe Raabe]

Warum so kompiliziert?

Delphi-Quellcode:

program ex1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.classes;

type
  TWrapper = class(TObject)
  private
  public
  published
    procedure Event(Sender: TObject);
  end;

procedure TWrapper.Event(Sender: TObject);
begin
  writeln('Event');
end;

var
  sl: TStringlist;
  wrapper: TWrapper;
begin
  wrapper := TWrapper.Create;
  try
    sl := TStringlist.Create;
    try
      sl.OnChange := wrapper.Event;
      sl.Add('foo');
    finally
      sl.Free;
    end;
  finally
    wrapper.Free;
  end;
end.