DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 88888777
今日帖子: 7
在线用户: 29
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2021/4/29 20:07:48
标题:
分享:FMX自定义TitleBar,支持放大缩小 浏览:1401
加入我的收藏
楼主: https://github.com/se-looper/FormCustomizationHelper

有需要的同学拿走,调用方法如下:

procedure TForm2.DoIdle(Sender: TObject; var Done: Boolean);
begin
  Self.Invalidate;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Application.OnIdle:= DoIdle;
  FCustomizationHelper:= TFormCustomizationHelper.Create(Self);
end;
此帖子包含附件:
GIF 图像
大小:420.5K
----------------------------------------------
虽千万人吾往矣!
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/4/29 22:21:09
1楼: 支持分享。

looper 大叔,http://www.asphyre.cn/ 访问不了了。是你家的公司不?
Self 能不写尽量不写。有时这样写,是不正确的。虽然很多人喜欢这样写。
----------------------------------------------
武汉天气不好
作者:
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2021/4/29 22:25:59
2楼: @dbyoung:self有什么问题吗?麻烦指点一下,我很多都这样写。。。

asphyre.cn是几年前注册来玩的,没心思搞站点
----------------------------------------------
虽千万人吾往矣!
作者:
男 dbyoung (dbyoung) ★☆☆☆☆ -
普通会员
2021/4/29 22:36:39
3楼: 在一个 DLL 中,有时并不见得是自身。
在标准的 EXE 中,有时也并不见得是自身(记不清了,但 DLL 是肯定的)。

以前特地写过代码测试过。有时间我找找。
----------------------------------------------
武汉天气不好
作者:
男 wenyue0811 (wenyue0811) ★☆☆☆☆ -
普通会员
2021/4/30 10:28:13
4楼: 哎呀, 这个好...可以缩放窗体的大小哎....


呃.....可是....和我有一样的 BUG. (但也可能只是我电脑上是这样)

向右, 向下缩放窗体大小是正确的.
但是, 向左, 向上放大窗体时, 窗体也同时在向右和向下放大.(也就是双向放大)

有点晕.....
----------------------------------------------


美国国务卿蓬佩奥回答大学生提问时说,“我曾担任美国中央情报局(CIA)的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀
作者:
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2021/4/30 11:25:12
5楼: @wenyue0811: 没有你说的这种bug

你这种bug是因为向左放大时,更改了窗体bounds的left,又去设置了窗体的宽度。其他类似bug也是类似问题引起的
----------------------------------------------
虽千万人吾往矣!
作者:
男 wenyue0811 (wenyue0811) ★☆☆☆☆ -
普通会员
2021/4/30 12:34:56
6楼: @Looper

可是我就是用你的源码, 运行后就这效果的啊!

你看下附件里的剪切视平.
此帖子包含附件:wenyue0811_2021430123455.rar 大小:492.5K
----------------------------------------------


美国国务卿蓬佩奥回答大学生提问时说,“我曾担任美国中央情报局(CIA)的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀
作者:
男 looper (keyo) ★☆☆☆☆ -
盒子活跃会员
2021/4/30 17:35:38
7楼: @wenyue0811: 我这边没碰到你说的这种问题啊,而且你的视频没代码也没环境信息
----------------------------------------------
虽千万人吾往矣!
作者:
男 wenyue0811 (wenyue0811) ★☆☆☆☆ -
普通会员
2021/4/30 20:47:29
8楼: @Looper

哦. 对了. 我忘记说了:   WINDOWS10 64位, 屏幕缩放 125%. 其它的没了.
----------------------------------------------


美国国务卿蓬佩奥回答大学生提问时说,“我曾担任美国中央情报局(CIA)的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行296.875毫秒 RSS