我试图通过iOS 11提供的两个UITableView委托方法为Delphi中的UITableView添加交换操作:
leadingSwipeActionsConfigurationForRowAtIndexPath trailingSwipeActionsConfigurationForRowAtIndexPath
的ObjectiveC:
- (nullable UISwipeActionsConfiguration *)tableView:(UITableView *)tableView leadingSwipeActionsConfigurationForRowAtIndexPath:(NSIndexPath *)indexPath API_AVAILABLE(ios(11.0)) API_UNAVAILABLE(tvos);
- (nullable UISwipeActionsConfiguration *)tableView:(UITableView *)tableView trailingSwipeActionsConfigurationForRowAtIndexPath:(NSIndexPath *)indexPath API_AVAILABLE(ios(11.0)) API_UNAVAILABLE(tvos);
这些动作来自新类UIContextualAction。我的问题正是在这堂课的翻译中。这是ObjectiveC类定义:
@class UIContextualAction;
// call the completionHandler to reset the context to its normal state (e.g. when swiping, resets to unswiped state)
// pass YES to the completionHandler if the action was actually performed, to show a visual indication of the successful completion
typedef void (^UIContextualActionHandler)(UIContextualAction *action, __kindof UIView *sourceView, void(^completionHandler)(BOOL actionPerformed));
typedef NS_ENUM(NSInteger, UIContextualActionStyle) {
UIContextualActionStyleNormal,
UIContextualActionStyleDestructive
} NS_SWIFT_NAME(UIContextualAction.Style) API_AVAILABLE(ios(11.0)) API_UNAVAILABLE(tvos);
UIKIT_EXTERN API_AVAILABLE(ios(11.0)) API_UNAVAILABLE(tvos)
@interface UIContextualAction : NSObject
+ (instancetype)contextualActionWithStyle:(UIContextualActionStyle)style title:(nullable NSString *)title handler:(UIContextualActionHandler)handler;
@property (nonatomic, readonly) UIContextualActionStyle style;
@property (nonatomic, copy, readonly) UIContextualActionHandler handler;
@property (nonatomic, copy, nullable) NSString *title;
@property (nonatomic, copy, nullable) UIColor *backgroundColor; // a default background color is set from the action style
@property (nonatomic, copy, nullable) UIImage *image;
@end
因此,我的Delphi导入如下所示:
const
UIContextualActionStyleNormal = 0;
UIContextualActionStyleDestructive = 1;
type
UIContextualActionStyle = integer;
UIContextualActionClass = interface(NSObjectClass)
['{F341A178-2950-4D0A-9EF2-DCDEAB76FF81}']
function contextualActionWithStyle(style: UIContextualActionStyle; title: NSString; handler: Pointer{UIContextualActionHandler}): Pointer; cdecl;
end;
UIContextualAction = interface(NSObject)
['{C5B4CB53-0655-41FA-B48E-D4FB0E9A54FB}']
function title: NSString; cdecl;
function backgroundColor: UIColor; cdecl;
function image: UIImage; cdecl;
function style: UIContextualActionStyle;
function handler: Pointer{UIContextualActionHandler};
procedure setTitle(title: NSString); cdecl;
procedure setBackgroundColor(backgroundColor: UIColor); cdecl;
procedure setImage(image: UIImage); cdecl;
procedure setStyle(style: UIContextualActionStyle); cdecl;
procedure setHandler(handler: Pointer{UIContextualActionHandler}); cdecl;
end;
TUIContextualAction = class(TOCGenericImport<UIContextualActionClass, UIContextualAction>);
我甚至没有参与UIContextualActionHandler的实现,并且暂时使用nil作为UIContextualActionHandler创建我的动作。如果我想创建一个“空”操作,应用程序崩溃:
var
btnDelete: UIContextualAction;
begin
//Crash by this code line:
btnDelete := TUIContextualAction.Wrap(TUIContextualAction.OCClass.contextualActionWithStyle(UIContextualActionStyleNormal, StrToNSStr('Delete'), nil));
我究竟做错了什么?谢谢!
解:
@property (nonatomic, readonly) UIContextualActionStyle style;
@property (nonatomic, copy, readonly) UIContextualActionHandler handler;
是ReadOnly,不必声明。正确的定义:
UIContextualActionClass = interface(NSObjectClass)
['{F341A178-2950-4D0A-9EF2-DCDEAB76FF81}']
function contextualActionWithStyle(style: UIContextualActionStyle; title: NSString; handler: Pointer{UIContextualActionHandler}): Pointer; cdecl;
end;
UIContextualAction = interface(NSObject)
['{C5B4CB53-0655-41FA-B48E-D4FB0E9A54FB}']
function title: NSString; cdecl;
function backgroundColor: UIColor; cdecl;
function image: UIImage; cdecl;
procedure setTitle(title: NSString); cdecl;
procedure setBackgroundColor(backgroundColor: UIColor); cdecl;
procedure setImage(image: UIImage); cdecl;
end;