fidorido

摘要： webbrowser 在android执行js没有返回值 WebBrowser1.EvaluateJavaScript(jsFunc); //Fix By Flying Wang and 爱吃猪头肉//procedure TCustomWebBrowser.EvaluateJavaScript(co 阅读全文

摘要： 发布绿色exe文件后，再更新就需要把自己删除，用更新文件代替。 当然还需要其他细节比如隐藏老版本文件，还原老版本文件等 ； 点击更新按钮后，先对自己重命名 procedure TFrmCheckUpdate.ActUpdateNowExecute(Sender: TObject); // 现在升级b 阅读全文

摘要： ***********使用前要先Uses Math*************1.Round（四舍六入五留双） 功能说明：对一个实数进行四舍五入。(按照银行家算法) 例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); 阅读全文

摘要： 这个是自己项目在使用的，所以带有些业务功能的代码。 逻辑上使用的大多是 mouseup ，MouseMove，Mousedown。使用recttangle容器实现滑动。网上有这个下载demo。 另外移动端要注意线程的异步同步的控制。 unit UShowPictureZoomIn; interfac 阅读全文

摘要： 此功能模仿微信朋友圈查看图片交互设计，预览图片的放大缩小左移右移。 还有很多缺陷，比如图片切换没有动画效果，2个月前写的，好多不记得了。 而且delphi自带手势滑动的快慢是有区别的，StandardGestures和interactiveGestures有描述。 手势都是窗体的。 unit UPr 阅读全文

摘要： unit Unit2; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Gra 阅读全文