屏幕上窗体位置设置，不让所有普通窗体对大化后到达屏幕最顶端

Question

现在有些程序打开后在窗体在屏幕的上方占据一块区域 其他的窗体最大化后都不能到达屏幕的最顶端
只能在那个窗体边缘下方 这种效果怎么达到的?

Answer 1

参考如下：  private
  procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo ); 
begin 
with Message.MinMaxInfo^ do 
begin
ptMaxSize.X := 1000; {最大化时宽度}
ptMaxSize.Y := 1000; {最大化时高度}
ptMaxPosition.X :=10; {最大化时左上角横坐标}
ptMaxPosition.Y :=10; {最大化时左上角纵坐标}
end; 
Message.Result := 0; {告诉Windows你改变了 minmaxinfo} 
inherited; 
end;