怎样在一个窗体表面放一个图片?
解决方案 »
- 如何将指定的颜色做为TColorBox中的当前色啊?
- tttk(网络芝麻)前来领分
- 為什麼我的FOR語句取到的都是相同的值?
- 散分!偶在网上买的书《Delphi 6 开发人员指南》到了~~~~~~
- 如何使form的大小是不可改变的,即不可拖动form
- vc deliphi中 建立的外部txt文件,如何超过一定条目进行清空
- 我想将数据表中一字段不从复的记录放到COMBOBOX中,应怎么写呢?
- 如何找到窗口上面的一个按钮的句柄。
- 怎样利用TStream读取可执行文件中的图片?如一些安装程序,屏幕保护程序等。
- 数据核对,怎么办?主从表如何建立?
- 大侠帮忙!菜鸟问题
- 如何在dll中把数据集导入clientdataset?(敬请高手指点)非常急!!!!!!!
这里我没有采用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<Height
do begin X:=0;
while X<Width
do begin cancas.Draw(X,Y,Bitmap);
X:=X+Bitmap.Width;
end;
Y:=Y+Bitmap.Heigth;
end;
end;
最后不要忘了在窗体的OnDestory事件中释放Bitmap对象。具体代码:Bitmap.Free ;好了,这样窗体显示时就会像网页那样带有背景,而且并没占多大的内存空间。