摘要:
方法1:procedure TForm1.Button2Click(Sender: TObject);var JPEGImage: TJPEGImage;beginif SavePictureDialog1.InitialDir =''then SavePictureDialog1.InitialDir := ExtractFilePath(OpenPictureDialog1.FileName);if trim(LabeledEdit1.Text)''then SavePictureDialog1.FileName := trim(LabeledEdit1.T 阅读全文
posted @ 2013-12-16 13:45 大悟还俗_2 阅读(291) 评论(0) 推荐(0) 编辑