在image1上画一个图片,并且使图片透明
详见代码:
procedure TForm1.Button8Click(Sender: TObject);
var vbmp:TBitmap;
begin
vbmp := TBitmap.Create;
vbmp.LoadFromFile('.\water.bmp'); // png file
vbmp.Transparent := true;
image1.Canvas.CopyRect(Rect(10,10,vbmp.Width * 2,vbmp.Height * 2),vbmp.Canvas,rect(0,0,vbmp.width,vbmp.height));
//如何使其vbmp画上去透明 vbmp.Free;
end;
详见代码:
procedure TForm1.Button8Click(Sender: TObject);
var vbmp:TBitmap;
begin
vbmp := TBitmap.Create;
vbmp.LoadFromFile('.\water.bmp'); // png file
vbmp.Transparent := true;
image1.Canvas.CopyRect(Rect(10,10,vbmp.Width * 2,vbmp.Height * 2),vbmp.Canvas,rect(0,0,vbmp.width,vbmp.height));
//如何使其vbmp画上去透明 vbmp.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货