ClickHandler mehrmals benutzten?

[Sir Rufo]

Geb der Instanz doch eine anonyme Methode mit, dann hast etwas Universelles

[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;

[Sir Rufo]

Jo, obwohl, so ist es schöner zu benutzen

Delphi-Quellcode:

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

  THandlerProc = reference to procedure;

  TUIToolBarClickHandler = class(TOCLocal)
  private
    FHandler: THandlerProc;
  protected
    function GetObjectiveCClass: PTypeInfo; override;
    constructor Create( Handler : THandlerProc );
  public
    class function Construct( Handler : THandlerProc ) : IUIToolbarClickHandler;
    procedure Click; cdecl;
  end;

class function TUIToolBarClickHandler.Construct( AHandler : THandlerProc ) : IUIToolbarClickHandler;
begin
  Result := Self.Create( AHandler );
end;

constructor TUIToolBarClickHandler.Create( AHandler : THandlerProc );
begin
  inherited Create;
  FHandler := AHandler;
end;

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

procedure TUIToolBarClickHandler.Click;
begin
  if Assigned( FHandler ) then
    FHandler(); // mit Klammern ist auf jeden Fall die procedure gemeint und nicht der Variablenwert ;o)
end;

und dann nur noch

Delphi-Quellcode:

var
  HelloWorldHandler : IUIToolbarClickHandler;

HelloWorldHandler := TUIToolBarClickHandler.Construct( 
  procedure
  begin
    ShowMessage( 'Hello World' );
  end );

[Crocotronic]

Sobald ich das dann in sowas hier rein packe und das ToolbarItem klicke, ist das Attribut null (bzw assigned = false)

Delphi-Quellcode:

 ToolbarItem:= TUIBarButtonItem.Create;
 ToolBarClickHandler := TUIToolBarClickHandler.Construct(
  procedure
  begin
   showmessage('Test');
  end );

 ToolbarItem.initWithBarButtonSystemItem(UIBarButtonSystemItemRefresh, ToolBarClickHandler.GetObjectID, sel_getUid('Click'));
 VPlanView.ViewController.navigationItem.setRightBarButtonItem(ToolbarItem,false);

[Crocotronic]

Es funktioniert doch...der Handler muss nur ein Attribut von der Klasse sein (-> FToolBarClickHandler)