打印本文 打印本文 关闭窗口 关闭窗口
用Delphi 控制窗体的大小
作者:武汉SEO闵涛  文章来源:敏韬网  点击数738  更新时间:2009/4/23 18:41:48  文章录入:mintao  责任编辑:mintao
用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;

打印本文 打印本文 关闭窗口 关闭窗口