- 博客(0)
- 资源 (2)
- 收藏
- 关注
RSS订阅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);
2020-02-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人