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;