uaboutactor.pas

图书管理系统,已经用于市场,此软件只供学习使用,不的用于商业行为

unit Uaboutactor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons,ShellAPI;

type
  Taboutactorfrm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    Image1: TImage;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label7MouseLeave(Sender: TObject);


    procedure Label10MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label10MouseLeave(Sender: TObject);

    procedure Label10Click(Sender: TObject);

    procedure Label7Click(Sender: TObject);
 
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

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

var
  aboutactorfrm: Taboutactorfrm;

implementation

uses UMain;

{$R *.dfm}

procedure Taboutactorfrm.Timer1Timer(Sender: TObject);//实现标签从右到左移动
begin
  label2.Left:=label2.Left-20;
  if label2.Left <=-label2.Width then
      label2.Left:=aboutactorfrm.Width;
end;

procedure Taboutactorfrm.Timer2Timer(Sender: TObject); //使标签2的颜色不断变化
begin
   label2.Font.Color :=random(350000);
end;

procedure Taboutactorfrm.BitBtn1Click(Sender: TObject);
begin
  self.Close;  //关闭窗体
end;

procedure Taboutactorfrm.Label7MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);  //当鼠标在标签7上移动时
begin
     Label7.Font.Style:=Label7.Font.Style+[fsunderline]+[fsbold]; //使标签7的字体有下滑线并加粗
     label7.Font.Color :=clred;    //使标签7的字体颜色变为红色
end;

procedure Taboutactorfrm.Label7MouseLeave(Sender: TObject); //当鼠标离开标签7时
begin
     Label7.Font.Style:=Label7.Font.Style-[fsunderline]-[fsbold]; //消去标签7字体的下滑线和加粗
     label7.Font.Color :=clblack;  //使标签7的字体颜色又变为黑色
end;



procedure Taboutactorfrm.Label10MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
     Label10.Font.Style:=Label10.Font.Style+[fsunderline]+[fsbold];
     label10.Font.Color :=clred;
end;

procedure Taboutactorfrm.Label10MouseLeave(Sender: TObject);
begin
     Label10.Font.Style:=Label10.Font.Style-[fsunderline]-[fsbold];
     label10.Font.Color :=clblack;
end;



procedure Taboutactorfrm.Label10Click(Sender: TObject); //当点击标签10时，给标签里的内容发邮件
var
  Addr:String;
begin
  if label10.Caption <>'' then
  begin
    Addr:=label10.Caption;
    ShellExecute(handle,nil,pchar('Mailto:'+Addr),nil,nil,SWP_NoMove);
  end;
end;



procedure Taboutactorfrm.Label7Click(Sender: TObject); //当点击标签7时，打开网站
var  
  Addr:String;
begin
  if label7.Caption <>'' then
  begin
    Addr:='http://www.delphifans.com';
    ShellExecute(handle,'Open',pChar(Addr),nil,nil,SWP_NoMove);
  end;
end;






procedure Taboutactorfrm.FormCreate(Sender: TObject);
begin
  mainfrm.StatusBar1.Panels.Items[1].Text:='您当前的操作为： '+'查看作者信息';
end;

procedure Taboutactorfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   mainfrm.StatusBar1.Panels.Items[1].Text:='';
end;

end.