formabout.pas

Delphi数据库编程

unit FormAbout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;

type
  TfrmAbout = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    lblSupport: TLabel;
    lblMail: TLabel;
    btnQuit: TButton;
    procedure FormClick(Sender: TObject);
    procedure lblSupportMouseLeave(Sender: TObject);
    procedure lblSupportMouseEnter(Sender: TObject);
    procedure lblMailMouseEnter(Sender: TObject);
    procedure lblMailMouseLeave(Sender: TObject);
    procedure lblSupportClick(Sender: TObject);
    procedure lblMailClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Private declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.dfm}

procedure TfrmAbout.FormClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TfrmAbout.lblSupportMouseEnter(Sender: TObject);
begin
  lblSupport.Font.Color := clBlue;
  lblSupport.Font.Style := [fsBold, fsItalic, fsUnderline];
end;

procedure TfrmAbout.lblSupportMouseLeave(Sender: TObject);
begin
  lblSupport.Font.Color := clBlack;
  lblSupport.Font.Style := [];
end;

procedure TfrmAbout.lblSupportClick(Sender: TObject);
begin
  ShellExecute(self.Handle, 'open', 'http://www.xxx.edu.cn/', nil, nil, SW_SHOW);
end;

procedure TfrmAbout.lblMailMouseEnter(Sender: TObject);
begin
  lblMail.Font.Color := clBlue;
  lblMail.Font.Style := [fsBold, fsItalic, fsUnderline];
end;

procedure TfrmAbout.lblMailMouseLeave(Sender: TObject);
begin
  lblMail.Font.Color := clBlack;
  lblMail.Font.Style := [];
end;

procedure TfrmAbout.lblMailClick(Sender: TObject);
begin
  ShellExecute(self.Handle, 'open', 'mailto:[e-mail]/', nil, nil, SW_SHOW);
end;

end.