aboutpas.pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· PAS 代码 · 共 110 行

unit aboutpas;

interface

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

type
  Tw_about = class(TForm)
    Label1: TLabel;
    SKUName: TLabel;
    Copyright: TLabel;
    Bevel2: TBevel;
    Shape1: TShape;
    Bevel1: TBevel;
    P1: TPanel;
    s1: TStaticText;
    s2: TStaticText;
    s3: TStaticText;
    s4: TStaticText;
    s5: TStaticText;
    s6: TStaticText;
    s7: TStaticText;
    Timer1: TTimer;
    procedure FormClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  w_about: Tw_about;

implementation

{$R *.dfm}

procedure Tw_about.FormClick(Sender: TObject);
var wwidth:integer;
begin
wwidth:=w_about.Width;
while w_about.Left>-wwidth do
begin
w_about.Left:=w_about.Left-20;
w_about.Top:=w_about.Top+20;
end;
close;
end;

procedure Tw_about.FormActivate(Sender: TObject);
var endw,endh,ksx,ksy,endx,endy:integer;
begin
//label2.caption:='明'+#13+'明'+#13+'白'+#13+'白'+#13+'卖'+#13+'药';
//label3.caption:='轻'+#13+'轻'+#13+'松'+#13+'松'+#13+'赚'+#13+'钱';
with w_about do
begin
endx:=left;
endy:=top;
endw:=width;
endh:=height;
ksx:=endx+Width div 2;
ksy:=endy+height div 2;
left:=ksx;
top:=ksy;
width:=0;
height:=0;
while width<endw do
begin
width:=width+5;
if height<endh then
height:=height+4;
top:=top-1;
left:=left-1;
end;
end;
end;

procedure Tw_about.Timer1Timer(Sender: TObject);
begin
if s1.top<=-s1.Height then
s1.top:=p1.Height;
if s2.top<=-s2.Height then
s2.top:=p1.Height;
if s3.top<=-s3.Height then
s3.top:=p1.Height;
if s4.top<=-s4.Height then
s4.top:=p1.Height;
if s5.top<=-s5.Height then
s5.top:=p1.Height;
if s6.top<=-s6.Height then
s6.top:=p1.Height;
if s7.top<=-s7.Height then
s7.top:=p1.Height;

s1.top:=s1.top-1;
s2.top:=s2.top-1;
s3.top:=s3.top-1;
s4.top:=s4.top-1;
s5.top:=s5.top-1;
s6.top:=s6.top-1;
s7.top:=s7.top-1;

end;

end.