创建透明位图
创建透明位图的关键是设置好位图的透明色,并且要确认位图用透明色填充
funtion CreateTransBitmap(width,Height:Integer;TransColor:TColor):TBitmap;
var
rct:TRect;
begin
result:=TBitmap.create;
result.width:=Width;
result.height:=Height;
rct.left:=-1;rct.top:=-1;rct.right:=result.width;rct.bottom:=result.height;
result.canvas.brush.color:=TransColor;
result.canvas.brush.style:=bssolid;
result.canvas.fillrect(rct);
result.Transparent:=true;
result.TransparentColor:=TransColor;
end;