背景图放置?? 请问高手怎么把一张JPEG图片当作MDI主窗体的背景图??急急 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给你个变通的办法,先将jpg文件读入TJPEGImage,然后转成Tbitmap。var Form1: TForm1; bit:TJPEGImage; tempbmp:Tbitmap;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);begin tempbmp:=TBitmap.Create; bit:=TJPEGImage.create; bit.LoadFromFile('c:\windows\clouds.jpg'); tempbmp.Assign(bit); Form1.Brush.Bitmap:=tempbmp;end;procedure TForm1.FormDestroy(Sender: TObject);begin bit.free; tempbmp.free;end; jin_zai(进仔) 说说原理可以吗?? tempbmp:=TBitmap.Create;//创建一个TBitmap对象,bmp格式 bit:=TJPEGImage.create;//创建一个TJPEGImage对象,jpg格式 bit.LoadFromFile('c:\windows\clouds.jpg');//用TJPEGImage对象读取jpg文件 tempbmp.Assign(bit);//进行jpg>bmp的转换,即用TJPEGImage对象给TBitmap对象符值 Form1.Brush.Bitmap:=tempbmp;//在mdi背景上平铺图片 fastreport中,为什么只有第一页才显示列名? RBuilder 打印时停顿两秒钟是怎么回事。 delphi如何获取网页内容? 怎样记录超过4位的小数 备份数据库SQL server 2000遇到的有点难道的问题.向高手请教 Form1.FreeInstance 和Form1.Free有什么区别? Query+DBGrid问题!!我都不知道为什么!! 100分低手问题:请问如何使TSaveDialog组件能自动给用户指定的文件名后加扩展名?(内详) 高手们快帮忙、要不我要抄了 如何用代码接收并判断用户敲了那个键 如何解决加载图片会一闪一闪的问题?在线急。 delphi中的sql语句
var
Form1: TForm1;
bit:TJPEGImage;
tempbmp:Tbitmap;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
tempbmp:=TBitmap.Create;
bit:=TJPEGImage.create;
bit.LoadFromFile('c:\windows\clouds.jpg');
tempbmp.Assign(bit);
Form1.Brush.Bitmap:=tempbmp;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
bit.free;
tempbmp.free;
end;
bit:=TJPEGImage.create;//创建一个TJPEGImage对象,jpg格式
bit.LoadFromFile('c:\windows\clouds.jpg');//用TJPEGImage对象读取jpg文件
tempbmp.Assign(bit);//进行jpg>bmp的转换,即用TJPEGImage对象给TBitmap对象符值
Form1.Brush.Bitmap:=tempbmp;//在mdi背景上平铺图片