我是这样写的:
procedure TForm1.FormShow(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('G:\课件背景图\22.bmp');
Form1.Canvas.Draw(0,0,BitMap);
finally
Bitmap.Free;
end;
end;
但是没有效果,请大家给出正确代码。还想请教一下,如果我的图片是JPG类型的,应该怎么办,用TMetafile吗?还是??
procedure TForm1.FormShow(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('G:\课件背景图\22.bmp');
Form1.Canvas.Draw(0,0,BitMap);
finally
Bitmap.Free;
end;
end;
但是没有效果,请大家给出正确代码。还想请教一下,如果我的图片是JPG类型的,应该怎么办,用TMetafile吗?还是??
b:TBitMap;
begin
b:=tBitmap.Create;
b.LoadFromFile('G:\课件背景图\22.bmp');
form1.Canvas.Draw(0,0,b);
form1.Update;//Here
b.Free;
end;
看来只好用IMAGE了。
对了我问的如果图片格式是JPG用TBitMap是不能LOADFROMFILE的,那要用什么类型呢?