604
社区成员
发帖
与我相关
我的任务
分享
TPngImage *png = new TPngImage(NULL);
png->LoadFromFile.....
...
delete png;
procedure TForm1.Button3Click(Sender: TObject);
var
png: tpngimage;
begin
png := tpngimage.Create;
png.LoadFromFile(getcurrentdir() + '\pic.png');
Image1.Picture.Bitmap.Assign(png);
png.Free;
end;