Transparentes TImage zur Laufzeit

[DeddyH]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  image2:= TImage.Create(self);
  image2.Parent:=self;
  image2.Picture.Bitmap.TransparentColor := clwhite;
  image2.Picture.Bitmap.Width := 15;
  image2.Picture.Bitmap.Height := 15;
  image2.Picture.Bitmap.Canvas.Pen.Style := psSolid;
  image2.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
  image2.Picture.Bitmap.Canvas.Brush.color:=clwhite;
  image2.Picture.Bitmap.Canvas.Pen.Color:=clwhite;
  image2.Picture.Bitmap.Canvas.Rectangle(0,0,image2.Width, image2.Height);
  image2.Picture.Bitmap.Canvas.Brush.color:=clgreen;
  image2.Picture.Bitmap.Canvas.Pen.Color:=clgreen;
  image2.Picture.Bitmap.Canvas.Ellipse(5,5,10,10);
  image2.Left:=50;
  image2.Top:=50;
  image2.Transparent:=true;
end;

Du solltest auf die Bitmap zeichnen statt auf das Image selbst. Und Höhe und Breite der Bitmap sollte man dann auch festlegen.