about.pas

用DELPHI编写的一个打字软件,想的朋友快点下啊,带源吗

unit about;

interface

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

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    ProgramIcon: TImage;
    Label4: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Label11Click(Sender: TObject);
    procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1Click(Sender: TObject);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel2Click(Sender: TObject);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;
  x1,y1:integer;
implementation

{$R *.DFM}

procedure TAboutBox.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TAboutBox.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then close;
end;

procedure TAboutBox.Label11Click(Sender: TObject);
begin
shellexecute(handle,nil,'http://www.0769cn.com',nil,nil,sw_normal);
end;

procedure TAboutBox.Label11MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
label11.Font.Style:=label11.Font.Style+[fsunderline];
label11.Font.Color:=clred;
end;

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

procedure TAboutBox.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label11.Font.Style:=label11.Font.Style-[fsunderline];
label11.Font.Color:=clblue;
if ssleft in  shift then
  begin
    left:=left+(x-x1);
    top:=top+(y-y1);
  end;
end;

procedure TAboutBox.Panel2Click(Sender: TObject);
begin
close;
end;

procedure TAboutBox.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
x1:=x;y1:=y;
end;

end.