在Timage控件中使用透明色

img1.Transparent := True;
with img1.Picture.Bitmap do
begin
  TransparentColor := clWhite;
  TransparentMode := tmFixed;
end;