unitabout.pas

来自「类似于写字板,但此功能强大,可以扩展到许多地方」· PAS 代码 · 共 87 行

unit UnitAbout;

interface

uses Windows, Graphics, Forms,
     Buttons, ShellAPI, StdCtrls,
     ExtCtrls,Controls, Classes;

type
  TAboutBoxForm = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    ProductMan: TLabel;
    Copyright: TLabel;
    WorkHome: TLabel;
    Version: TLabel;
    EmailAddress: TLabel;
    HomePage: TLabel;
    LabelHome: TLabel;
    LabelEMail: TLabel;
    PanelBack: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    procedure OKButtonClick(Sender: TObject);
    procedure EmailAddressClick(Sender: TObject);
    procedure HomePageClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure HomePageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure EmailAddressMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBoxForm: TAboutBoxForm;

implementation

{$R *.DFM}

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

procedure TAboutBoxForm.EmailAddressClick(Sender: TObject);
begin
  ShellExecute(Handle,'Open','mailto:[e-mail]',NIL,NIL,SW_SHOW);
end;

procedure TAboutBoxForm.HomePageClick(Sender: TObject);
begin
  ShellExecute(Handle,'Open','http://yckxzjj.vip.sina.com',NIL,NIL,SW_SHOW);
end;

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

procedure TAboutBoxForm.HomePageMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  HomePage.Cursor:=crHandPoint;
end;

procedure TAboutBoxForm.EmailAddressMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  EmailAddress.Cursor:=crHandPoint;
end;

procedure TAboutBoxForm.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

end.