delphi窗体控制

一、窗体最大化

      第一步:进入主界面后,先获取主界面的高度。

delphi窗体控制

第二步:将需要将窗体最大化的窗体,在show事件中写:

windowstate:=wsmaximized;//最大化

self.Align:=alClient;
self.Height::=mainfrm.Height;

self.position:=poDesigned;

self..borderstyle:=bssingle;

如此能保证最大化的窗体不变形。

 

二、不允许窗体出现最大化按钮。

 有时,我们希望窗体只保持初始设计时的大小,那么去掉最大化按钮就很有必要了。如下图:

delphi窗体控制

如果被用户按到,则会显示如下:

delphi窗体控制

变形走样,非常难看。

我们只需要做如下操作:

delphi窗体控制

将BorderStyle窗体类别改为“bsDialog”即可,更改后的窗体如下图:

delphi窗体控制