用Delphi 控制窗体的大小 (转)

用Delphi 控制窗体的大小 (转)[@more@] 用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;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-989597/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-989597/