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
 

相关阅读 >>

Delphi用socket api实现路由追踪

Delphi 多次改变 richedit.text部份文本的颜色后，出现所有字体都变色的的解决办法

Delphi模仿“千千静听”滚动标题栏

Delphi idhttp post 普通提交乱码处理

Delphi 如何在定义局部变量时赋初始值

Delphi edit,memo中禁用ctrl+v

Delphi 获取路径分隔符

Delphi xe android]获取屏幕的物理分辨率

在 Delphi 中使用微软全文翻译的小例子

Delphi 拷贝dbgrid当前行

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 程序窗体最大化、组件居中显示代码