aboutform.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

unit AboutForm;

interface

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

type
  TfrmAbout = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    lblProductName: TLabel;
    lblVersion: TLabel;
    lblCopyright: TLabel;
    lblLicense: TLabel;
    btnOK: TButton;
    lblCompanyName: TLabel;
    lblRegistered: TLabel;
    lblTrademark: TLabel;
    lblRegisteredTo: TLabel;
    btnLicense: TButton;
    procedure FormShow(Sender: TObject);
    procedure btnLicenseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

uses BS1Form, LicenseForm;

{$R *.DFM}

procedure TfrmAbout.FormShow(Sender: TObject);
begin
  btnOK.setfocus;
  
  if License = '' then lblLicense.caption := 'Demo license for evaluation purposes only'
  else if MaxUsers = 1 then lblLicense.caption := 'Single-user license'
  //else lblLicense.caption := IntToStr(MaxUsers) + ' user network license';
  else lblLicense.caption := 'Multi-user network license';

  if RegisteredTo = '' then lblRegisteredTo.caption := ''
  else lblRegisteredTo.caption := 'Registered to: ' + RegisteredTo;
end;

procedure TfrmAbout.btnLicenseClick(Sender: TObject);
begin
  screen.cursor := crHourglass;
  application.createform (TfrmLicense,frmLicense);
  screen.cursor := crDefault;
  self.hide;
  frmLicense.ShowModal;
end;

end.