用Delphi 控制窗体的大小

最新推荐文章于 2023-02-12 17:25:42 发布

原创最新推荐文章于 2023-02-12 17:25:42 发布 · 2.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #windows #教育

编程专栏收录该内容

54 篇文章

订阅专栏

博客介绍了在软件中实现窗口极大化时只占屏幕一小部分的方法。通过在FORM私有声明部分添加特定程序，以及在声明部分添加相关程序，设置窗口最大化时的宽度、高度和左上角坐标等信息，还告知Windows改变了最大化和最小化信息。

用Delphi 控制窗体的大小

http://www.tongyi.net 出处:中国电脑教育报点击:735

   在我们使用的软件中，有些窗口在极大化时只占屏幕的一小部分，那么它是如何实现的呢！请看下面的例子：
   1、在FORM私有声明部分加上如下一行程序：
   procedure WMGetMaxInfo( var Message:TWMGetMinMaxInfo);message WM_GETMinMAXINFO;
   2、在声明部分加上如下几行程序:
   procedure TForm1.WMMinMaxInfo( var Message :TWMGetMinMaxInfo );
   begin
   with Message.MinMaxInfo do
   begin
   ptMaxSize.X := 400; //最大化时宽度
   ptMaxSize.Y := 400; //最大化时高度
   ptMaxPosition.X := 50; //最大化时左上角横坐标
   ptMaxPosition.Y := 50; //最大化时左上角纵坐标
   end;
   Message.Result := 0; //告诉Windows你改变了最大化和最小化信息。
   inherited;
   end;