frm_about.pas

一个地方税务征收管理系统

unit frm_about;

interface

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

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    Label6: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;
  Ltop: Integer;

implementation

{$R *.dfm}

procedure TAboutBox.FormCreate(Sender: TObject);
begin
  Ltop := 120;
  Timer1.Enabled := false;
  Label6.Visible := false;
  ProgramIcon.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'about.bmp');
end;

procedure TAboutBox.Image1DblClick(Sender: TObject);
var s: string;
begin
  Timer1.Enabled := true;
  Label6.Visible := true;
  s := '作者简介：' + #13 +
    '周俊：男，汉族，四川南江人，出生于1978年，' + #13 +
    '四川师范大学毕业，精通DELPHI+SQL SERVER2000，' + #13 +
    '有丰富的项目开发经验，独立担任LONSID企业管理系' + #13 +
    '统的开发工作。' + #13 +
    '在5年程序生涯中，积累了丰富的DELPHI设计经验，现已有完整的' + #13 +
    '进销存、生产、仓管、人事、工资等模块，可为企业快速开发' + #13 +
    '出稳定、实用、易用的ERP系统。';

  Label6.Caption := s;
end;

procedure TAboutBox.Timer1Timer(Sender: TObject);
begin

  Ltop := Ltop - 3;
  if Ltop <= -120 then Ltop := 120;
  Label6.Top := Ltop;
end;

end.