, denne artikel viser, hvordan man bruger et tilfælde af en klasse som en callback.,, hvis du ville have en vinduer callback til et tilfælde af en klasse, der blot erstatter tmyclass med din classname, og tmyclass.mycallback med deres metode navn.,,,,,,,, tcallbackthunk = pakket rekord, popedx: byte;,, moveax: byte;,, selfptr: pointer,,, pusheax: byte;,, pushedx: byte;,, jmp: byte;,, jmpoffset: heltal,,,,, var, tcallbackthunk, callback:;, begynder, har skabt,,, callback.popedx: = $5a,,, callback.moveax: = $b8,,, callback.selfptr: = selvstændig;,, callback.pusheax: = 50 $,,, callback.pushedx: = $52;,,, callback.jmp: = $e9,,, callback.jmpoffset: = heltal (@tmyclass.mycallback) - heltal (@callback.jmp) - 5;,,, //kalder winapi her passerer @ callback til callback proc, for eksempel, enumsystemlocales (tfnlocaleenumproc (@ callback), lcid_supported);,,,,