unit_about.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_about;

interface

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

type
  TFrm_About = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Shape1: TShape;
    Label5: TLabel;
    Bevel1: TBevel;
    Label6: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormClick(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_About: TFrm_About;

implementation

{$R *.DFM}

procedure TFrm_About.Image1Click(Sender: TObject);
begin
  close;
end;

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

procedure TFrm_About.FormClick(Sender: TObject);
begin
  close;
end;

procedure TFrm_About.Label5Click(Sender: TObject);
begin
   ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal); 
end;

procedure TFrm_About.Label5MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Label5.Font.Style:=[fsbold,fsunderline];
  Label5.Font.Color:=clMaroon;
end;

procedure TFrm_About.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  Label5.Font.Style:=[];
  Label5.Font.Color:=clFuchsia;
end;

procedure TFrm_About.Label5MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label5.Color:= clRed ;
end;

procedure TFrm_About.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label5.Color:= clBtnHighlight;
end;

end.