WSnapForm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:0k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit WSnapForm;
  2. interface
  3. uses
  4.   SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  5. type
  6.   TForm1 = class(TForm)
  7.   private
  8.     { Private declarations }
  9.   public
  10.     { Public declarations }
  11.   end;
  12. var
  13.   Form1: TForm1;
  14. implementation
  15. uses ComApp;
  16. {$R *.DFM}
  17. const
  18.   CLASS_ComWebApp: TGUID = '{B404078F-9948-4F04-99CB-3CA072D43A56}';
  19. initialization
  20.   TWebAppAutoObjectFactory.Create(Class_ComWebApp,
  21.     'WSnap2', 'WSnap1 Object');
  22. end.