限制FORM的大小

2016-02-19 17:26 7 1 收藏

下面图老师小编要跟大家分享限制FORM的大小,简单的过程中其实暗藏玄机,还是要细心学习,喜欢还请记得收藏哦!

【 tulaoshi.com - 编程语言 】

  使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口,

  当它极大时只占屏幕的一小部分,它是如何实现的呢,请看下面的说明:

  1)在FORM私有声明部分加上如下一行:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  procedureMessage :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;

  WMGetMinMaxInfo( var

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  2)在声明部分加上如下几行:

  

procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );beginwith Message.MinMaxInfo^ dobeginptMaxSize.X := 200; {最大化时宽度}ptMaxSize.Y := 200; {最大化时高度}ptMaxPosition.X := 99; {最大化时左上角横坐标}ptMaxPosition.Y := 99; {最大化时左上角纵坐标}end;Message.Result := 0; {告诉Windows你改变了 minmaxinfo}inherited;end;

来源:http://www.tulaoshi.com/n/20160219/1615204.html

延伸阅读
(*)Form淡出 1)AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入   AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出 2)窗体有AlphaBlend属性和AlphaBlendValue属性,将AlphaBlend属性设为True,然后在Timer组件中随着时间改变AlphaBlendValue的值(0-255)即可   AlphaBlendValue:=1;//窗体透明...
  作者:e梦缘 好久发表文章了!!! 调用DLL文件中的FORM,具体实现过程如下: library Project1;uses SysUtils, Classes,Forms,windows,dialogs, Unit1 in 'Unit1.pas' {Form1};{$R *.res}function showform(formname:string):boolean;stdcall;var TheClass: TPersistentClass; aForm: TForm;be...
标签: ASP
Form Form 集合通过使用 POST 方法的表格检索邮送到 HTTP 请求正文中的表格元素的值。 语法 Request.Form( element ) [ ( index ) | .Count ] 参数 element 指定集合要检索的表格元素的名称。 index 可选参数,使用该参数可以访问某参数中多个值中的一个。它可以是 1 到 Request.Form( parameter ).Count 之间的...
其实,一开始就是很简单的事情,但后来花了我3个多小时才解决。 在项目中使用了几个UserControl,一开始这些控件还是工作的很好,但开始在UserControl中添加了一些代码以后,原先在设计器窗体中的控件,忽然变得不能选中,并且不能查看属性起来。但是,在运行的时刻,这些控件的功能又是很正常的。这让我很困惑,后来发现Visual Studio 2003 ID...
标签: Web开发
DHTML form validation body{ font-family: Trebuchet MS, Lucida Sans Unicode, Arial, sans-serif; /* Font to use */ background-color:#FFF; font-size:0.9em; }/* Style for invalid input */ .invalidInput{ border:1px solid #F00; padding:1px; } /* Style for valid input */ .validInput{ border:1px...

经验教程

401

收藏

61
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部