604
社区成员
发帖
与我相关
我的任务
分享
TIcon *ico=new TIcon;
ImageList1->GetIcon(0,ico);
Image1->Picture->Icon=ico;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//可行,image存额是png图片格式,所以可以载入
Image2->Picture->SaveToFile("a.png");
PNGButton1->ImageNormal->LoadFromFile("a.png");
PNGButton1->Repaint();
}