Foros Club Delphi - Asignar metodo anonimo a eventos

A medida que mas se empiezan a usar los metodos anonimos, te entran ganas de hacer cosas como esta:

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := procedure(Sender: TObject)
  begin
     ShowMessage(Sender.ClassName);
  end);
end;

Pero no se puede, el IDE reporta el error:

Código:

[DCC Error] Unit1.pas(51): E2009 Incompatible types: 'method pointer and regular procedure'

Navegando por la web, el gran David Heffernan tiene una solucion muy elegante, la cual se puede ver en este enlace

Sin mas, me he tomado la molestia de extenderla un poco para soportar distintos tipos de eventos; He dividido la funcionalidad en dos unidades, una bastante "aburrida" en la que hay que declarar la misma clase una y otra vez pero agregando siempre un parametro generico mas, asi:

Código Delphi [-]  TEventWrapper< T1, R > = class abstract(TComponent)
  strict private
    FProc: TProc< T1 >;
  public
    class function CreateEvent(AOwner: TComponent; AProc: TProc): R; virtual; abstract;
    constructor Create(AOwner: TComponent; AProc: TProc); reintroduce;
    procedure Event(Arg1: T1);
  end;

  TEventWrapper< T1, T2, R > = class abstract(TComponent)
  strict private
    FProc: TProc< T1, T2 >;
  public
    class function CreateEvent(AOwner: TComponent; AProc: TProc< T1, T2 >): R; virtual; abstract;
    constructor Create(AOwner: TComponent; AProc: TProc< T1, T2 >); reintroduce;
    procedure Event(Arg1: T1; Arg2: T2);
  end;

  TEventWrapper< T1, T2, T3, R > = class abstract(TComponent)
 
...

Y en otra unidad la implementacion para los eventos, seria basicamente implementar la funcion de clase CreateEvent

Esto permitiria escribir codigo de la siguiente manera:

Código Delphi [-]uses
  Events.Wrappers;

procedure ButtonOnClickEvent(Sender: TObject);
begin
  ShowMessageFmt('%s - %s', [Sender.ClassName, TButton(Sender).Caption]);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  AEvent: TProc;
begin
  Button1.OnClick := TNotifyEventWrapper.CreateEvent(Self,
  procedure(Sender: TObject)
  begin
    ShowMessageFmt('%s - %s', [Sender.ClassName, TButton(Sender).Caption]);
  end);

  AEvent := ButtonOnClickEvent;
  Button2.OnClick := TNotifyEventWrapper.CreateEvent(Self, AEvent);

  OnMouseDown := TMouseDownEventWrapper.CreateEvent(Self,
  procedure(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer)
  begin
    ShowMessageFmt('Clicked on %d:%d', [X, Y]);
  end);
end;

Las unidades las pueden obtener en un repo en GitHub que he creado ahora y que (espero) pueda ir actualizando con cosas similares (clases, funciones, ejemplos, etc)

Enlace a repositorio o acá estan las dos unidades de las que hablo: Events.Core y Events.Wrappers