请问如何把那些在窗体里面的组件在窗体最大化时自动居中,所有的组件都要居中,排位不变

renwenyishuadmin 提交于 周三, 2018/06/13 - 03:06
分类

在窗体上放一个 TPanel ;
Panel1 的 Align 属性设为 alClient ;
需要自动居中的组件都放在 Panel1 上 ;
在 Panel1 的 Resize 事件写以下代码:
  Button1.Left := round((Width - 8 - Button1.Width) / 2);      //常量8用于处理边界问题
  Button1.Top := round((Height - 8 - Button1.Height) / 2);

第三种存在 从通用智能到超级智能 朱嘉明 著 经济 deepseek 对话时代 元宇宙与数字经济 历史不会熔断 AI时代生存手册

【推荐理由】历史热推

【到手价】29.90元