D7 加载png图片，代码简单，合适新手png.rar

Delphi7 加载png图片，代码简单，合适新手 procedure TForm1.FormCreate(Sender: TObject); var png: TPNGObject; begin png := TPNGObject.Create; //初始化 png.LoadFromFile('png\0.png'); S0.Glyph.Assign(png); png.LoadFromFile('png\1.png'); S1.Glyph.Assign(png); png.LoadFromFile('png\2.png'); S2.Glyph.Assign(png); png.LoadFromFile('png\3.png'); S3.Glyph.Assign(png); png.LoadFromFile('png\4.png'); S4.Glyph.Assign(png); png.LoadFromFile('png\5.png'); S5.Glyph.Assign(png); png.LoadFromFile('png\6.png'); S6.Glyph.Assign(png); png.LoadFromFile('png\7.png'); S7.Glyph.Assign(png); png.LoadFromFile('png\8.png'); S8.Glyph.Assign(png); png.LoadFromFile('png\9.png'); S9.Glyph.Assign(png);