unitabout.pas

来自「我一般用于制作和整理（文件搜索方式）编程技术文档和各类源代码, 可以如编程工具」· PAS 代码 · 共 59 行

unit Unitabout;

interface

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

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    lblEmail: TLabel;
    OKButton: TButton;
    Panel2: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure lblEmailMouseLeave(Sender: TObject);
    procedure lblEmailMouseEnter(Sender: TObject);
    procedure lblEmailClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.FormCreate(Sender: TObject);
begin
self.ProgramIcon.Picture.Graphic:=application.Icon;

end;

procedure TAboutBox.lblEmailMouseLeave(Sender: TObject);
begin
   self.lblEmail.Font.style:=[];
   self.lblEmail.Font.Color:=clblack;
end;

procedure TAboutBox.lblEmailMouseEnter(Sender: TObject);
begin
     self.lblEmail.Font.style:=[fsUnderline];
     self.lblEmail.Font.Color:=clred;
end;

procedure TAboutBox.lblEmailClick(Sender: TObject);
begin
      shellexecute(handle,nil,pansichar('mailto:[e-mail]'),nil,nil,swp_nomove);
end;

end.