Das habe ich mir zuerst auch gedacht und getestet, ist es aber nicht. Außerdem habe ich beide Bitmaps in der Farbtiefe angeglichen.
Sonderbarer weise funktioniert das:
Delphi-Quellcode:
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := 200;
Bitmap.Height := 200;
Bitmap.Canvas.Ellipse(Bitmap.Canvas.ClipRect);
Bitmap.Transparent := True;
Bitmap.TransparentColor := Bitmap.Canvas.Pixels[0, 0];
Self.Canvas.Draw(0, 0, Bitmap);
finally
Bitmap.Free;
end;
end;