delphi窗体控制

一、窗体最大化

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

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

windowstate:=wsmaximized;//最大化

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

self.position:=poDesigned;

self..borderstyle:=bssingle;

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

 

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

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

如果被用户按到，则会显示如下：

变形走样，非常难看。

我们只需要做如下操作：

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