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