选项
{$modeswitch cblocks}
在处理回调函数时使用编译选项
场景: 在定义单元 和 使用单元
type
XxxxCallback = reference to procedure; cdecl; cblock;
在事件参数里 主动直接调用
paramcallback()
设置回调函数 被动调用
伪代码:
// 定义要执行的回调函数
procedure MyCallback;
begin
end;
var
tempCallback: XxxxCallback;
// 设置回调函数
tempCallback := @MyCallback;
// 回调函数做为参数
OtherMethod(Pointer(tempCallback))
参考链接
