許多網頁都有背景圖案,這樣可以使頁面看起來更加醒目。不過在Delphi裡你也可以設計這種類型的窗體。馬上會想到的一個方法就是使用image構件,然後指定一幅圖片就可以啦。這樣做當然是可行的,但是一幅可以充滿整個窗體的BMP圖,要占用很多的內存空間,這樣就劃不來了。最好的辦法是只下載一幅很小的BMP圖,然後把它粘貼到整個窗體上。
這裡我沒有采用Image構件,而是使用了Bitmap構件,用它來下載一幅很小的位圖。首先是在窗體的Public部分加入變量定義:Bitmap:TBitmap;然後在窗體的OnCreate事件中生成此對象,代碼如下:
procedure TForm1.FormCreate(Sender:Tobject);
begin Bitmap:=TBitmap.Create;
Bitmap.LoadFormFile(1.bmp);//圖文件1.bmp只有1KB大小
end;
第三步是在窗體的OnPaint事件中把位圖的圖案粘貼到整個窗體上。添加代碼如下:procedure TForm1.FormPaint(Sender:Tobject)var x,y:integer;begin y:=0;while y
do begin X:=0;
while X
do begin cancas.Draw(X,Y,Bitmap);
X:=X+Bitmap.Width;
end;
Y:=Y+Bitmap.Heigth;
end;end; 最後不要忘了在窗體的OnDestory事件中釋放Bitmap對象。具體代碼:Bitmap.Free;好了,這樣窗體顯示時就會像網頁那樣帶有背景,而且並沒占多大的內存空間。