Delphi组件：将Png图片装载进Image中 var png: tpngimage; begin png := tpngimage.Create; png.LoadFromFile(getcurrentdir() + '\pic.png'); Image1.Picture.Bitmap.Assign(png); png.Free; end;