uabout.pas

来自「这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.」· PAS 代码 · 共 62 行

unit uabout;

interface

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

type
  TfrmAbout = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    lblemail: TLabel;
    bbtnclose: TBitBtn;
    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.lblemailClick(Sender: TObject);
begin
  ShellExecute(self.Handle, nil, 'mailto:[e-mail]?subject=你好,秋风啊', nil, nil, sw_ShowNormal);
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(self.Handle, 1800, AW_HIDE + AW_CENTER + AW_BLEND);
end;

end.