Delphi技巧--有「背景」的窗體

許多網頁都有背景圖案，這樣可以讓頁面看起來更醒目。不過在Ｄｅｌｐｈｉ裡你也可以設計這種類型的窗體。馬上會想到的一個方法就是使用ｉｍａｇｅ構件，然後指定一幅圖片就可以啦。這樣做當然是可行的，但是一幅可以充滿整個窗體的ＢＭＰ圖，要佔用很多的內存空間，這樣就劃不來了。最好的方法是只下載一幅很小的ＢＭＰ圖，然後把它貼到整個窗體上。

?ぁ≌飫鏤頤揮脅捎?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；好了，這樣窗體顯示時就會像網頁一樣有背景，而且並沒佔多大的記憶體空間。