ClickHandler mehrmals benutzten?

[Crocotronic]

Was dann so aussehen würde?

Delphi-Quellcode:

type
  IUIToolbarClickHandler = interface(NSObject)
  ['{6D8473BD-461C-479D-ADF6-59F933EDA57B}']
    procedure Click; cdecl;
  end;

  THandlerProc = reference to procedure;

  TUIToolBarClickHandler = class(TOCLocal)
  private
   FMyProc: THandlerProc;
  protected
   function GetObjectiveCClass: PTypeInfo; override;
  public
   procedure Click; cdecl;
  end;


function TUIToolBarClickHandler.GetObjectiveCClass;
begin
 Result:= TypeInfo(IUIToolbarClickHandler);
end;

procedure TUIToolBarClickHandler.Click;
begin
 FMyProc;
end;