vert1.pas

来自「用来定制你的Delphi程序版本显示和保护程序版本的构件」· PAS 代码 · 共 45 行

unit Vert1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, VerView, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    VersionView: TVersionView;
    Button1: TButton;
    ProductNameView: TVersionView;
    CopyrightView: TVersionView;
    CompanyView: TVersionView;
    Bevel1: TBevel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    InternalView: TVersionView;
    OriginalView: TVersionView;
    DescriptionView: TVersionView;
    ComentsView: TVersionView;
    VersionProtect1: TVersionProtect;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

end.