unit2.pas

xp仿造登陆界面的 拿出来给大家了 有好东西大家不要忘记拿出来啊

unit Unit2;

interface

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

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    OKButton: TButton;
    Label1: TLabel;
    procedure OKButtonClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

    procedure Label1MouseLeave(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;
  s: Tcolor;
  t: TFontStyles;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
  Close;
end;


procedure TAboutBox.Label1Click(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('http://deter.icpcn.com'),nil,nil,sw_shownormal);
end;


procedure TAboutBox.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Font.Style:=[fsbold,fsunderline];
  Label1.Font.Color:=RGB(253,24,68);
end;


procedure TAboutBox.Label1MouseLeave(Sender: TObject);
begin
  Label1.Font.Style:=t;
  Label1.Font.Color :=s;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
begin
  s:=Label1.Font.Color;
  t:=Label1.Font.style;
end;

end.