在网上，几乎每个主页的壁纸都具有鲜明的特色，或是木纹，或是玛瑙色大理石纹，或是浅色的文字等等，令人赏心悦目。我们在设计Delphi应用程序时，也不妨借鉴借鉴，利用TImage对象以及窗体的画布(Canvas)对象，给程序的主窗口设计一幅精致有趣的壁纸，以增强应用程序的感染力。
    1、利用PhotoShop等图像处理软件，充分展示你的想象能力，制作一幅底纹图像，或者在网上抓一个。如果你制作的图像的颜色数设置得很高，例如16位真彩色，就需要相应设置Win95中显示器的调色板参数，为了让你的程序能适应不同的计算机环境，建议图像尺寸和图像的颜色数不要设置得太大。
    2、新建一个工程，打开程序的代码编辑窗口，在Var部分加入以下说明：
    TileImage:TImage; //定义一个TImage对象
    3、编写Form1.OnCreate事件代码：
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    //创建一个TImage对象，并载入指定底纹位图文件
    TileImage:=TImage.Create(Self);
    TileImage.Picture.LoadFromFile('bg_green.bmp');
    end;
    4、编写Form1.OnPaint事件代码：
    procedure TForm1.FormPaint(Sender: TObject);
    var
    PWidth,PHeight,X,Y: Integer;
    begin
    //壁纸图片的宽，高
    PWidth := TileImage.Picture.Bitmap.Width;
    PHeight := TileImage.Picture.Bitmap.Height;
    X := 0;
    while X < Form1.Width do begin
    Y := 0;
    while Y < Form1.Height do begin
    Form1.Canvas.Draw(X, Y, TileImage.Picture.Bitmap);
    Y := Y ＋ PHeight;
    end;
    X := X ＋ PWidth;
    end;
    end;
    5、加入应用程序的其他对象，并编写相应代码。
    6、编译、运行程序，试着改变窗口的大小。
    7、本程序在Pwin95、Delphi3环境下调试通过。