delphi 程序窗体最大化、组件居中显示代码

程序窗体最大化、组件居中显示代码

程序主窗体放置Tpanel组件、把Align属性设置为alclient，在panel的Resize事件中写

procedure TFrm_AddNewUser.Panel1Resize(Sender: TObject);

begin

Panel2.Left := round((Width - 8 - Panel2.Width) / 2); //常量8用于处理边界问题

Panel2.Top := round((Height - 8 - Panel2.Height) / 2);

end;

————————————————

原文链接：https://blog.csdn.net/xxkku521/article/details/11799473

推荐分享