about_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit About_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, ShellApi;

type
  TfrmAbout = class(TForm)
    lblSodonInfo: TLabel;
    Label2: TLabel;
    Image1: TImage;
    lblCaption: TLabel;
    Timer1: TTimer;
    procedure lblSodonInfoMouseLeave(Sender: TObject);
    procedure lblSodonInfoMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure lblSodonInfoClick(Sender: TObject);
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation



{$R *.dfm}

procedure TfrmAbout.lblSodonInfoMouseLeave(Sender: TObject);
begin
  Screen.Cursor := crDefault;
  lblSodonInfo.Font.Color := clBlack;
end;

procedure TfrmAbout.lblSodonInfoMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  Screen.Cursor := crHandPoint;
  lblSodonInfo.Font.Color := clBlue;
end;

procedure TfrmAbout.Timer1Timer(Sender: TObject);
begin
  AlphaBlendValue := (AlphaBlendValue + 5) mod 255;
  if ((AlphaBlendValue + 5) mod 255)=0 then
  begin
    Timer1.Enabled := False;
    AlphaBlend := False;
  end;
end;

procedure TfrmAbout.lblSodonInfoClick(Sender: TObject);
begin
  ShellExecute(Handle,'open',PChar('www.northwain.com.cn'),nil,nil,SW_SHOWMAXIMIZED);
end;

procedure TfrmAbout.FormClick(Sender: TObject);
begin
  Close;
end;

end.