Transparentes TImage zur Laufzeit

[ghutzriop]

Leider auch nicht.

Hier ist im Übrigen die gesamte exemplarische Unit1

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;



var
  Form1: TForm1;
  Image2: TImage;
implementation

{$R *.dfm}

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

end.