uabout.pas

人事档案管理

unit uAbout;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, XPMenu, jpeg, Shellapi, udlgbase;

type
  TfrmAbout = class(TfrmDlgBase)
    Panel1: TPanel;
    ProgramIcon: TImage;
    lblName: TLabel;
    lblVer: TLabel;
    lblRight: TLabel;
    lblEmail: TLabel;
    bbtnclose: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure lblEmailClick(Sender: TObject);
    procedure lblEmailMouseEnter(Sender: TObject);
    procedure lblEmailMouseLeave(Sender: TObject);
    procedure bbtncloseClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.dfm}

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  inherited;
  {$IFDEF TRAIL}
  lblVer.Caption := '版  本: 2.0 试用版';
  {$ELSE}
  lblVer.Caption := '版  本: 2.0 正式版';
  {$ENDIF}
end;

procedure TfrmAbout.lblEmailClick(Sender: TObject);
begin
  ShellExecute(Handle, nil, 'mailto:[e-mail]?subject=你好,秋风啊', nil, nil, SW_HIDE);
end;

procedure TfrmAbout.lblEmailMouseEnter(Sender: TObject);
begin
  lblEmail.Font.Color := clBlue;
end;

procedure TfrmAbout.lblEmailMouseLeave(Sender: TObject);
begin
  lblEmail.Font.Color := clWindowText;
end;

procedure TfrmAbout.bbtncloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmAbout.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AnimateWindow(Handle, 1800, AW_HIDE + AW_CENTER + AW_BLEND);
end;

end.