程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi技巧--有“背景”的窗體

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

編輯:Delphi


  許多網頁都有背景圖案,這樣可以使頁面看起來更加醒目。不過在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;好了,這樣窗體顯示時就會像網頁那樣帶有背景,而且並沒占多大的內存空間。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved