麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

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：易混淆的概念

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 久草在线视频网 | 成人毛片免费 | 羞羞电影网 | www亚洲免费| 久久久久久久久久综合 | 日韩在线欧美在线 | 日本一区二区不卡在线观看 | 成人视屏在线观看 | 亚洲综合无码一区二区 | 一级在线观看 | 99re66热这里只有精品8 | 大学生一级毛片在线视频 | 精品一区二区电影 | 久草在线精品观看 | 欧美日韩高清在线观看 | 精品黑人一区二区三区国语馆 | 最新久久免费视频 | 国产精品久久久久久久av三级 | 操嫩草 | 亚洲国产精品久久久久婷婷老年 | 亚洲成人高清在线观看 | 亚洲爱爱图 | 久久久久国产一区二区三区不卡 | 精品国产九九九 | 亚洲国产美女视频 | 国产精品性夜天天视频 | 国产一区网址 | 欧美日韩成人一区二区 | 毛片毛片免费看 | 免费国产一区 | 泰剧19禁啪啪无遮挡 | 青青草成人免费视频在线 | 成人免费观看49www在线观看 | 久久精品视频12 | 久久免费观看一级毛片 | 欧日韩在线视频 | 福利在线免费视频 | 久色porn | 成人小视频免费在线观看 | 天天草天天干天天 | 久久亚洲精品久久国产一区二区 |