用Delphi 控制窗体的大小

在我们使用的软件中，有些窗口在极大化时只占屏幕的一小部分，那么它是如何实现的呢！请看下面的例子：
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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有