unit1.~pas

在delphi中简单动画的实现

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    x:integer;
    pic:TRect;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    timer1.Enabled:=true;
    timer1.Interval:=15;
    x:=image1.Height + 40;
    image1.Canvas.Brush.Color:=clgray;
    pic.Left:=0;
    pic.Top:=0;
    pic.Right:=image1.Width;
    pic.Bottom:=image1.Height;
    image1.Canvas.FillRect(pic);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   x:=x - 1 ;
   if x< -300 then
   x:=image1.Height + 20 ;
   image1.Canvas.Font.Size:=18;
   image1.Canvas.Font.Color:=clBtnFace;
   image1.Canvas.TextOut(80,x,'那城软件简介');
   image1.Canvas.Font.Size:=12;
   image1.Canvas.TextOut(80,x + 60,'本公司是从事软件开发和网站及数据库开发______');
   image1.Canvas.TextOut(0,x +100,'公司简介内容:');
   image1.Canvas.TextOut(40,x+130,'本公司成立于2003年......');
   image1.Canvas.TextOut(20,x+160,'广告业务：');
   image1.Canvas.TextOut(25,x+190,'业务联系:QQ:252461946');
   image1.Canvas.TextOut(25,x+210,'电话:[phone]');
end;

end.