Question

请问Delphi中的Image控件如何读取一个扩展名为“.xxx”的PNG文件？

Answer 1

uses
　　..., pngimage; /纯改/ 加上这个

procedure TForm1.FormPaint(Sender: TObject);
var
　　做冲判Png: TPngObject;
　　Rect: TRect;
begin
　　Png := TPngObject.Create;

　　Png.LoadFromFile('1.xxx');
　　Rect.Left := 0;
　　Rect.Top := 0;
　　Rect.Right := Rect.Left + Png.Width;
　　Rect.Bottom := Rect.Top + Png.Height;
　　Png.Draw(Canvas, Rect);
　　判嫌Png.Free;
end;