unitabout.pas

绿色衡器称重系统(串口）

unit unitAbout;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
//             该系统源码归青岛东亚电子衡器有限公司版权所有
//                                  Author:HaiBin
//      Email:[e-mail]     DateTime:2005.06.22
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
interface

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

type
  TfrmAbout = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label3MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;
implementation

uses unitJoin;

{$R *.dfm}

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
Label1.Caption:='　　　青岛东亚电子衡器有限公司称重系统Ver1.0　　　'+
Chr(13)+Chr(10)+' '+
Chr(13)+Chr(10)+'     本管理软件采用Delphi及Access编制。全中文操作 '+
Chr(13)+Chr(10)+' 界面,简单易学。开发周期15余天，难免有不足之处， '+
Chr(13)+Chr(10)+' 使用本系统终身提供需求技术支持。 欢迎使用客户提 '+
Chr(13)+Chr(10)+'出修改意见并发至电子邮件到[e-mail]  或  '+
Chr(13)+Chr(10)+'[e-mail]. 未经允许,不得复制、转让给其'+
Chr(13)+Chr(10)+'他使用者! 使用权归:'+ ClientUSN +
Chr(13)+Chr(10)+'所有!'+
Chr(13)+Chr(10)+' '+
Chr(13)+Chr(10)+'　　　　　　　　　　　Pro. Designer:QDseashore　　'+
Chr(13)+CHr(10)+'　　　　　　　　　　　　　2005年06月17日　　　　　';
Label1.Top:=Width+10;
Timer1.Interval:=1;
Timer1.Enabled:=True;
end;

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

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

procedure TfrmAbout.Timer1Timer(Sender: TObject);
begin
if Label1.Top>=45 then
begin
 Label1.Top:=Label1.Top-3;
end
else
 Timer1.Enabled:=False;
end;

procedure TfrmAbout.Label2Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TfrmAbout.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label2.Font.Color:=clRed;
end;

procedure TfrmAbout.Label3MouseLeave(Sender: TObject);
begin
  Label2.Font.Color:=clBlue;
end;

end.