delphi Form属性设置 设置可实现窗体无最大化,并且不能拖大拖小(写一个WM_EXITSIZEMOVE的空函数)
2017-07-10 20:49
567 查看
以下设置可实现窗体无最大化,并且不能拖大拖小BorderIcon 设为---biMax[False] biHelp [False]BorderStyle 设为---bsSingle 参考-------------- 可以通过设置窗体的属性以及编程的方法,限制和控制窗体的变化。如让窗体不能最小化、最大化.
-----
1.通过属性设置方法
使用Form的BorderIcon属性,我们可设置窗体是否具有系统菜单(biSystemMenu)、最小化按钮(biMinimize)、最大化按钮(biMaximize)和帮助按钮(biHelp)。
BorderIcon属性的这4个子属性均只有True和False属性。默认情况下四个子属性均为True。若将biSystemMenu属性设置为False,则不管其他属性如何设置,窗体此时不仅没有系统菜单,连最大最小按钮也没有,窗体不能最小化,也不能关闭。不管如何设置BorderIcon属性,窗体都能通过拖动边界来改变大小。
使用Form的BorderStyle属性,可以设置窗体的边界风格。常用的选项有四种:BsDialog(对话框边界)、bsNone(无边界)、bsSingle(单线边界)和bsSize(可改变大小的标准边界)。如果设置BorderStyle属性为BsDialog,则不能通过拖动边界来改变窗体大小,另外如果此时BorderIcon的biHelp子属性为True,窗体将显现出帮助按钮。如果设置BorderStyle属性为bsSingle,也不能通过拖动边界来改变窗体大小,但此时具有最大、最小和关闭按钮.
2.通过截获调整窗体大小的消息来实现
type
TForm1 = class(TForm)
private
{ Private declarations }
public
//截获调整窗体大小的系统消息WM_EXITSIZEMOVE
procedure WMEXITSIZEMOVE(var Message: TMessage);messageWM_EXITSIZEMOVE;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
Caption := '禁止窗体调整和移动';
end;
原文:http://hi.baidu.com/517749/item/c8c0db37d2e6c784c2cf2996
http://www.cnblogs.com/azhqiang/p/3699903.html
-----
1.通过属性设置方法
使用Form的BorderIcon属性,我们可设置窗体是否具有系统菜单(biSystemMenu)、最小化按钮(biMinimize)、最大化按钮(biMaximize)和帮助按钮(biHelp)。
BorderIcon属性的这4个子属性均只有True和False属性。默认情况下四个子属性均为True。若将biSystemMenu属性设置为False,则不管其他属性如何设置,窗体此时不仅没有系统菜单,连最大最小按钮也没有,窗体不能最小化,也不能关闭。不管如何设置BorderIcon属性,窗体都能通过拖动边界来改变大小。
使用Form的BorderStyle属性,可以设置窗体的边界风格。常用的选项有四种:BsDialog(对话框边界)、bsNone(无边界)、bsSingle(单线边界)和bsSize(可改变大小的标准边界)。如果设置BorderStyle属性为BsDialog,则不能通过拖动边界来改变窗体大小,另外如果此时BorderIcon的biHelp子属性为True,窗体将显现出帮助按钮。如果设置BorderStyle属性为bsSingle,也不能通过拖动边界来改变窗体大小,但此时具有最大、最小和关闭按钮.
2.通过截获调整窗体大小的消息来实现
type
TForm1 = class(TForm)
private
{ Private declarations }
public
//截获调整窗体大小的系统消息WM_EXITSIZEMOVE
procedure WMEXITSIZEMOVE(var Message: TMessage);messageWM_EXITSIZEMOVE;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
Caption := '禁止窗体调整和移动';
end;
原文:http://hi.baidu.com/517749/item/c8c0db37d2e6c784c2cf2996
http://www.cnblogs.com/azhqiang/p/3699903.html
相关文章推荐
- delphi Form属性设置 设置可实现窗体无最大化,并且不能拖大拖小
- delphi Form属性设置 设置可实现窗体无最大化,并且不能拖大拖小
- 课堂练习1:定义一个交通工具(Vehicle)类,其中有: 属性:速度(speed),体积(size) 方法:移动(move()),设置速度(setSpeed(int speed)),设置体积
- 请定义一个交通工具(Vehicle)的类,其中有: 属性:速度(speed),体积(size)等 方法:移动(move()),设置速度(setSpeed(int speed)),设置体积(s
- 请定义一个交通工具(Vehicle)的类,其中有: 属性:速度(speed),体积(size)等 方法:移动(move()),设置速度(setSpeed(int speed)),设置体积(s
- 请定义一个交通工具(Vehicle)的类,其中有: 属性:速度(speed),体积(size)等 方法:移动(move()),设置速度(setSpeed(int speed)),设置体积(set
- 1.请定义一个交通工具(Vehicle)的类其中有: 属性: 速度(speed)、 体积(size)等,方法:移动(move())、设置速度(setSpeed(int speed))、加速 spee
- 请定义一个交通工具(Vehicle)的类,其中有: 属性:速度(speed),体积(size)等 方法:移动(move()),设置速度(setSpeed(int speed)),设置体积(s
- ASP.NET查询页面设置form的action属性只弹出一个页面,并且每次将页面设置到最前
- C#:form的窗体属性formborderstyle设置为none后就不能移动了
- 移动无边框窗体(设置标志位更流畅,或者发送WM_SYSCOMMAND和SC_MOVE + HTCAPTION消息)
- 请编程实现:产生一个int数组,长度为100,并向其中随机插入1-100,并且不能重复(百度了一下,get一种高性能算法,非递归)
- TextView设置android:ellipsize="marquee"属性,无法实现跑马灯效果的解决方法
- 让窗体从初始时就保持最大化,并且不能改变窗体大小的完美解决方案
- PHP定义一个类,设置属性并且使用的例子
- C#中form的窗体属性formborderstyle设置为none后就不能移动了
- 在ActivityGroup中一个Activity中有个EditText,没有设置任何的特殊属性,却只能输入内容,不能删除。
- 在VS2005中设置DIALOG的属性,将滚动条属性设置为TRUE,这样在界面中出现滚动条样式,但不能实现滚动
- 用Java的布局和组件,并且设置监听器实现一个小的加法计算器
- c#操作excel时不能设置类 PageSetup 的 PaperSize 属性