频道分类

delphi回调函数高级应用

作者:admin 来源: 日期:2020/3/5 10:02:39 人气: 标签:

 
用法一

Type TProc=procedure() of object;

procedure Callback(proc:TProc);

begin

  ...

end;

procedure myproc()

begin

  ...

end;

Callback(myproc);

 

用法二

type TProc= reference to Procedure();

procedure Callback(proc:TProc);

begin

  ....

end;

Callback(

  procedure()begin

  end;

);

 https://www.cnblogs.com/onexyz/p/12090649.html