大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
posts - 236, comments - 8, trackbacks - 0, articles - 0
  新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

2013年12月16日

摘要: 方法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 大悟还俗 阅读(156) 评论(0) 编辑