如何设计delphi窗体里面的组件居中？
展开全部
在窗体上放一个 TPanel ；
Panel1 的 Align 属性设为 alClient ；
需要自动居中的组件都放在 Panel1 上 ；
在 Panel1 的 Resize 事件写以下代码：
Button1.Left := round((Width - 8 - Button1.Width) / 2); //常量8用于处理边界问题
Button1.Top := round((Height - 8 - Button1.Height) / 2);
Panel1 的 Align 属性设为 alClient ；
需要自动居中的组件都放在 Panel1 上 ；
在 Panel1 的 Resize 事件写以下代码：
Button1.Left := round((Width - 8 - Button1.Width) / 2); //常量8用于处理边界问题
Button1.Top := round((Height - 8 - Button1.Height) / 2);
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
