用Delphi 控制窗体的大小

用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;