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 最简单的ttcpserver与ttcpclient通信实例

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi parent属性的另类用法

Delphi 技巧以相同类名派生一个子类

Delphi 计算农历的单元

Delphi android实例-录音与回放(播放mp3)(xe8+小米2)

Delphi stringgrid中回车换行

Delphi 利用http的post方法做个在线翻译的小工

Delphi format中的换行符号是什么

Delphi 的编译指令(1): $define、$undef、$ifdef、$else、$endif

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