unit Proxies;
interface
procedure CreateSubClass(Instance: TObject; const ClassName, UnitName: string;
Ancestor: TClass); overload;
procedure CreateSubClass(Instance: TObject; const ClassName: string;
Ancestor: TClass); overload;
procedure DestroySubClass(Instance: TObject);
procedure RenameSubClass(Instance: TObject; const ClassName: string;
const UnitName: string = '');
function CreateSubClassMethod(Instance: TObject;
const MethodName: string): Pointer;
procedure ChangeToProxyClass(Instance: TObject; Proxy: TClass);
procedure RenameSubClassMethod(Instance: TObject; Method: Pointer;
const MethodName: string);
procedure DestroySubClassMethod(Instance: TObject; Method: Pointer);
function IsProxyClass(ClassType: TClass): Boolean;
implementation
就这些。Delphi 5 中的,拿来骗骗 Delphi 7 吧。