aboutfrm.pas

来自「Delphi函数查询器是你开发程序的好帮手」· PAS 代码 · 共 69 行

{ ********************************************************************** }
{                                                                        }
{                    DelphiFun 1.0 (Delphi函数查询器)                    }
{                           AboutForm Source                             }
{                                                                        }
{     Copyright (c) 2003 by netrobo & [e-mail] in changchun      }
{                                                                        }
{ ********************************************************************** }

unit AboutFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,PubFun;

type
  TAboutForm = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    LblEmail: TLabel;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure LblEmailClick(Sender: TObject);
    procedure LblEmailMouseEnter(Sender: TObject);
    procedure LblEmailMouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation

uses MainFrm;

{$R *.dfm}

procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TAboutForm.LblEmailClick(Sender: TObject);
begin
  ToMyEmail();
end;

procedure TAboutForm.LblEmailMouseEnter(Sender: TObject);
begin
  lblEmail.Font.Color:=clRed;
  lblEmail.Font.Style:=[];
end;

procedure TAboutForm.LblEmailMouseLeave(Sender: TObject);
begin
  lblEmail.Font.Color:=clBlue;
  lblEmail.Font.Style:=[fsUnderLine];
end;

end.