Transparenz-Farbe von TImage ändern

[Kevinpptx]

Danke erstmal für die vielen Antworten!

Zitat von Uwe Raabe:

Zitat von Kevinpptx:

Auf jeden Fall funktioniert es ja nicht. Nicht mit $FE5334 und nicht mit $5334FE, was auch immer richtig ist.

Hier funktioniert es. Dies ist mein Code:

Delphi-Quellcode:

var b : TBitmap;
    pxc: TColor;
    hxc : string;
begin
  b := TBitmap.Create();
  try
    b.Transparent := true;
    b.TransparentColor := $005334FE;
    b.LoadFromFile('c:\Users\Uwe\Downloads\Koenig_weiss.bmp');
    Image1.Picture.Graphic := b;
    Image1.Transparent := True;
    if (Image1.Picture.Bitmap.Canvas.Pixels[0, 0] = $5334FE) then ShowMessage('toll');  // kommt!


    pxc := Image1.Picture.Bitmap.Canvas.Pixels[0, 0];
    hxc := IntToHex(ColorToRGB(pxc), 6);
    ShowMessage(hxc);  // zeigt 5334FE
  finally
    b.Free;
  end;
end;

Mit diesem Code kommt zumindest auch "toll" bei mir, allerdings ist das Bild immer noch nicht transparent .