home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / nagscr / frmmain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  1.6 KB  |  58 lines
  1. unit Frmmain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Nag;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     NagScreen: TNagScreen;
  12.     Button1: TButton;
  13.     Label1: TLabel;
  14.     procedure Button1Click(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   MainForm: TMainForm;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TMainForm.Button1Click(Sender: TObject);
  29. begin
  30.      {Fill all the NagScreen fields}
  31.      with NagScreen do
  32.      begin
  33.           {Your Address or Co. Address}
  34.           Address := '239 William Street';
  35.           {The Author Name}
  36.           Author := 'David M. Gentils';
  37.           {City State and Zip Code}
  38.           CityStateZip := 'West Haven, Conn. 06516';
  39.           {Your Copyright}
  40.           CopyRight := 'Copyright ⌐ 1995 - D && L Tech Services';
  41.           {Your product name}
  42.           ProductName := 'NagTest - UnRegistered';
  43.           {The Dialog Caption}
  44.           Title := 'NagTest';
  45.           {Your Version Info}
  46.           Version := 'Version 1.0';
  47.           {Your shareware comment goes here}
  48.           Comments := 'This is the example version of NagTest. ' +
  49.           'You are free to use this program for xx - days, after which you need ' +
  50.           'to register it. This program is fully functional and imposes no ' +
  51.           'restrictions. For registration information see ORDER.TXT or see Online Help.';
  52.           {Invoke NagScreen.Execute function}
  53.           Execute;
  54.      end;
  55. end;
  56.  
  57. end.
  58.