Delphi技巧--有“背景”的窗體

2019-11-18 18:55:36

字體：大中小

來源：轉載

供稿：網友

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

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

上一篇：在Delphi中使用IP控件

下一篇：Delphi：易混淆的概念