mit diesem auch bei swissdelphicenter gefundenen code (
http://www.swissdelphicenter.ch/de/showcode.php?id=1774 ) lässt sich eine Grafik (TGraphic) in ein TBitmap umwandeln, daraus ergäbe sich dann (angelehnt an den link von dir) in etwa folgender code fürs FormCreate:
Delphi-Quellcode:
function GraphicToBMP(Graphic: TGraphic): TBitmap;
begin
Result := TBitmap.Create;
Result.Width := Graphic.Width;
Result.Height := Graphic.Height;
Result.Canvas.Draw(0,0,Graphic);
end;
procedure TForm1.FormCreate(Sender: TObject);
var Picture: TPicture;
begin
Picture := TPicture.Create;
try
Picture.LoadFromFile('
...');
{JPG- und BMP-Dateien, GIF sind in Delphi nicht standartmäßig implementiert}
FRegion := CreateRegion( GraphicToBMP(Picture.Graphic) );
SetWindowRgn(
Handle,FRegion,True);
finally
Picture.Free;
end;
end;