X
xyf2001721
Unregistered / Unconfirmed
GUEST, unregistred user!
uses JPEG;
清除图片: Image1.picture := nil;
bmp,jpg:Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
如果Assign :Image1.Picture.Bitmap.assign(bmp or jpg)
清除图片: Image1.picture := nil;
bmp,jpg:Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
如果Assign :Image1.Picture.Bitmap.assign(bmp or jpg)