移动程序通用界面设计demo__技术回复专用帖__高勇

gaoyong_gy

《Delphi移动程序通用界面设计》

购买购买地址


实用还有不定期升级，目前升级不收费，超级实用划算。

特点：

• 没有使用任何第三方控件，本demo提供所有源码，毫无保留；
• 购买后加入一个售后群，会有不定期更新；
• 绝对物超所值；
• 大部分都可以窗口级引用，再稍微修改就变成你的了；
• 快速界面设计素材，非它莫属；
• 全是delphi原生控件，您基本不用担心升级问题。
• QQ120180714联系我。
  

说明：

参考了很多程序的界面设计，加上自己的亲身经验，现在设计了如下安卓，ios下通用的界面。之所以说是通用，是因为，常规app程序的界面设计要素基本就这么多。如果我们要开发的程序的设计界面与哪个窗口类似，直接拷贝过去即可直接使用，纯粹搭积木式设计。

所有界面的设计均耗费了我大量的心血，充分考虑了颜色的搭配，位置的协调，线条的粗细与长短，还有界面的布局，系统的兼容，操作的方便等等等等。



目前支持10.3，支持动态权限申请，自动透明状态栏、导航栏，照抄即可，Delphi界面素材集合，直接拷贝的首选。

用Delphi搞APP或者fmx框架开发，这是您一定要收藏的素材集合，这是纯Delphi自带控件使用演示，没有使用任何第三方控件，今天收藏，以后还有升级内容。几年的积累，您真的不心动吗？


Delphi移动（桌面）程序通用界面设计（26.0）全功能版（发货为第26.2版本，淘宝信息比较老了，抱歉）

您的支持，会导致此demo内容会越来越多。

已经购买的，请直接下载升级版本，谢谢支持。
下载：
Delphi移动程序通用界面设计(升级到26.2）


安装程序下载（文件稍大，是因为包含的图片比较多）：
https://pan.baidu.com/s/1oWQ8LACJwEjo7AbBRZLvFg
下载安装文件



======9.0后版本没有录制视频======
Delphi手机通用界面设计9.0高勇.mp4
操作视频：
https://v.youku.com/v_show/id_XMTg1MzIyMjUyNA==.html
视频演示

=========================

gaoyong_gy

海贝前辈写的，我转一下：

……如果说一个事情专注的坚持2-3年已经了不起，那么坚持了20年是不是非常了不起呢？没错！有个事情我就坚持了23年，这个东西就是Delphi，一种编程语言和工具。
……1994年见到了2.0版，当时书店没有任何资料，网上也没有，那时还没有真正的互联网。那时的2.0还是丑小鸭，到了2000年左右，Delphi好像到了5-6-7的版本，也到了他的鼎盛时期，书店里很多参考资料。但互联网的崛起的时候，Delphi没能跟上时代，于是，delphi 7成了大家比较认可却逐渐少用的选择，也几乎那时还有了支持Linux 的版本，但没有发展，随后停了，后来是否有第8版、第九版已经没多少人在意了。因为要么不用了、要么用第七版。到了2012年的时候，广州购书中心只剩下了最后一本Delphi的书籍，没错……我买回来了：不肯定我是第一个买，但肯定最后一本是我买了。
……Delphi 似乎消失了，使用热度年度排行榜也落后到了几十名之后。当大家都已经忘记了的时候，他又回来了。
……Delphi 产品线几经转手后又浴火重生了，华丽的再次来到了世人面前。错过了互联网时代，却赶上了移动互联网时代！我又从新的版本2.0一路跟到了现在的10，而我从老的2.0到新的10.0算到现在正是20年，能始终如一坚持20年，、不离不弃的应该不会多。
……尽管惭愧的是如今虽然一事无成，却能坚持下来、到现在也算是能说赶上了移动互联网时代，至少敢说想做点啥就能够自己动手、而不再需要完全依靠别的公司了，就能做出手机APP、移动互联网的应用了。
……很多人曾使用Delphi的人，现在转用其他了，或者已经不认识Delphi了，但其热度排名在2016年已经是第十名，2017已经是第九了，这个非常了不起！
……再看看今天做的东西，好不好先不说，相信一定能做出来，而且苹果、安卓一起做。其价值，懂的人自然会懂。对于不懂的人，金子也会认作铜。
……有个遗憾，20年间只买了一个正版，那还是Delphi 5。就像买书，将来一定会买了正版支持一下他们。
……长相守，终究又有云开雾散时。

gaoyong_gy

在Delphi10.3下，原来的延迟时间的函数在安卓下无效果了，采用线程的方式来解决，类似如下：
procedure TFormDongHuaAnNiu.Control_MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  TThread.CreateAnonymousThread(
    procedure
    begin // 以上为匿名线程的左括号
      TThread.Synchronize(nil, // 线程暂停，等待主线程执行这里面的代码，执行完毕后继续执行线程内的代码
        procedure
        begin
          X1 := X; // 记录鼠标按下时的坐标值
          Y1 := Y;
          Control_MouseEnter(Sender);
          TControl(Sender).Position.X := TControl(Sender).Position.X + 2;
          TControl(Sender).Position.Y := TControl(Sender).Position.Y + 2;
        end);

      sleep(50); // 延时多少毫秒

      TThread.Synchronize(nil,
        procedure
        begin
          TControl(Sender).Position.X := TControl(Sender).Position.X - 2;
          TControl(Sender).Position.Y := TControl(Sender).Position.Y - 2;
        end);
    end).Start;
end;

capelin

界面非常漂亮，高端大气上档次！

bbcoll

楼主，，，，你是太有精力了，看这界面，是把微信基本都做了一遍
我也是20年的delphi老程序员了,刚接触移动开发，为啥刚接触？
20年左右的程序员，前面什么房子啊，孩子上学啊，有时真空不下来
现在空点了，可以研究一下了