jianjie1.~pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit jianjie1;

interface

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

type
  Tjianjie = 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
  jianjie: Tjianjie;

implementation

{$R *.dfm}

procedure Tjianjie.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 Tjianjie.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,'信息科学与技术学院......');
   image1.Canvas.TextOut(20,x+160,'专业：计算机科学与技术');
   image1.Canvas.TextOut(25,x+190,'业务联系:QQ:252461946');
   image1.Canvas.TextOut(25,x+210,'电话:[phone]');
end;

end.