home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / inttab.pak / PROXIES.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.5 KB  |  45 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995 Borland International        }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit Proxies;
  11.  
  12. interface
  13.  
  14. uses SysUtils, Classes, Controls, Forms;
  15.  
  16. type
  17.   TProxyForm = class(TForm)
  18.   protected
  19.     procedure ReadState(Reader: TReader); override;
  20.   public
  21.     constructor CreateAs(const AClassName: string);
  22.     constructor CreateFrom(Stream: TStream; ADesigner: TDesigner);
  23.     destructor Destroy; override;
  24.     procedure RenameClass(const AClassName: string);
  25.     function CreateMethod(const AName: string): Pointer;
  26.     procedure RenameMethod(AMethod: Pointer; const AName: string);
  27.     procedure DestroyMethod(AMethod: Pointer);
  28.     property ReadError: Boolean;
  29.   end;
  30.  
  31.   { Ole Helper Delegate }
  32.  
  33.   TLibOleHelper = class(TObject)
  34.   public
  35.     function GetObjectMenuItemCount(Obj: TComponent): Integer; virtual; abstract;
  36.     function GetObjectMenuItem(Obj: TComponent; Index: Integer): string; virtual; abstract;
  37.     procedure ObjectMenuItemAction(Obj: TComponent; Index: Integer); virtual; abstract;
  38.     procedure RegisterFormAsDropTarget(Form: TForm); virtual; abstract;
  39.   end;
  40.  
  41. const
  42.   LibOleHelper: TLibOleHelper = nil;
  43.  
  44. implementation
  45.