5,388
社区成员
发帖
与我相关
我的任务
分享
uses ExtCtrls, PngImage;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
Image: TImage;
begin
Image := TImage.Create(Self);
Image.AutoSize := True;
Image.Picture.LoadFromFile('d:\xmas_011.png');
Image.Parent := Self;
end;