本文整理自网络,侵删。
用法一
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
相关阅读 >>
Delphi pagecontrol.ttabsheet与drivecombobox.items同步
Delphi tstylemanager读取vsf皮肤文件信息
Delphi读取webbrowse中的图片显示在image中
Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary
更多相关阅读请进入《Delphi》频道 >>