程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 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