Unit 'System'	Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index]	[#rtl]

TInterfaceThunk

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: objpash.inc line 360

type TInterfaceThunk = class(TInterfacedObject)

public

type

TArgData = record

addr: pointer;

info: pointer;

idx: SmallInt;

ahigh: SizeInt;

end;

PArgData = ^TargData;

TThunkCallBack = procedure(

aInstance: Pointer;

aMethod: LongInt;

aCount: LongInt;

aData: PArgData

) of object;

public

constructor create();

function InterfaceVMTOffset; virtual;

end;

Inheritance

`TInterfaceThunk`
\|
`TInterfacedObject`		TObject descendent implementing the IUnknown interface.
\|
`TObject,IUnknown`		Base class of all classes.