home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Doc / PROXIES.INT < prev    next >
Encoding:
Text File  |  1999-08-11  |  1.4 KB  |  34 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Utilities procedures to help a form designer    }
  7. {       constructor psuedo classes and methods to help  }
  8. {       correctly stream instances.                     }
  9. {                                                       }
  10. {       Copyright (c) 1995,99 Inprise Corporation       }
  11. {                                                       }
  12. {*******************************************************}
  13.  
  14. unit Proxies;
  15.  
  16. interface
  17.  
  18. procedure CreateSubClass(Instance: TObject; const ClassName, UnitName: string;
  19.   Ancestor: TClass); overload;
  20. procedure CreateSubClass(Instance: TObject; const ClassName: string;
  21.   Ancestor: TClass); overload;
  22. procedure DestroySubClass(Instance: TObject);
  23. procedure RenameSubClass(Instance: TObject; const ClassName: string;
  24.   const UnitName: string = '');
  25. function CreateSubClassMethod(Instance: TObject;
  26.   const MethodName: string): Pointer;
  27. procedure ChangeToProxyClass(Instance: TObject; Proxy: TClass);
  28. procedure RenameSubClassMethod(Instance: TObject; Method: Pointer;
  29.   const MethodName: string);
  30. procedure DestroySubClassMethod(Instance: TObject; Method: Pointer);
  31. function IsProxyClass(ClassType: TClass): Boolean;
  32.  
  33. implementation
  34.