delpht中控制窗体的变化的技巧_Deiphi窗体文章_Deiphi_编程开发

delpht中控制窗体的变化的技巧

日期：2008-10-20 22:07:11　　　　来源：

　·在 Delphi 中控制扫描仪的使用(1)　·Delphi实现QQ窗体的缩入伸出功能
　·DIY装机变化中的发展

delpht中控制窗体的变化的技巧。
　　我们可以通过设置窗体的属性以及编程的方法，限制和控制窗体的变化。如让窗体不能最小化、最大化、移动，甚至不能关闭。

　　使用Form的BorderIcon属性，我们可设置窗体是否具有系统菜单（biSystemMenu）、最小化按钮（biMinimize）、最大化按钮（biMaximize）和帮助按钮（biHelp）。

　　BorderIcon属性的这４个子属性均只有True和False属性。默认情况下四个子属性均为True。若将biSystemMenu属性设置为False，则不管其他属性如何设置，窗体此时不仅没有系统菜单，连最大最小按钮也没有，窗体不能最小化，也不能关闭。不管如何设置BorderIcon属性，窗体都能通过拖动边界来改变大小。

　　使用Form的BorderStyle属性，可以设置窗体的边界风格。常用的选项有四种：BsDialog（对话框边界）、bsNone（无边界）、bsSingle（单线边界）和bsSize（可改变大小的标准边界）。如果设置BorderStyle属性为BsDialog，则不能通过拖动边界来改变窗体大小，另外如果此时BorderIcon的biHelp子属性为True，窗体将显现出帮助按钮。如果设置BorderStyle属性为bsSingle，也不能通过拖动边界来改变窗体大小，但此时具有最大、最小和关闭按钮。

　　通过Form的Position属性可设置窗体的初始位置，如选择DesktopCenter为桌面中心，ScreenCenter为屏幕中心，等等。

　　如何不让窗体移动能，这是不能通过属性设置来实现的。我们可以通过编程来实现，拦下 WM_NCHITTEST 消息, 对该消息的处理为：一概回应鼠标点在窗口的 Client 区域, 相信这个视窗就呆呆的不会动了。

　　例程如下：

　　unit Unit1;
　　interface
　　uses Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls;
　　type TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　private { Private declarations }
　　procedure WMNCHitTest(var Msg: TMessage);
　　message WM_NCHITTEST; public { Public declarations }
　　end;
　　var Form1: TForm1;
　　implementation
　　{$R *.DFM}
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　Close; // 不可少, 因为已经没有其他方法能关闭此窗口了
　　end;
　　procedure TForm1.WMNCHitTest(var Msg: TMessage);
　　begin
　　inherited; // 这样,移动就不可能了...
　　Msg.Result := HTCLIENT;
　　end;
　　end. 　[1]

--->专用网络打字比赛软件 6.1.9┊是控制功能最多的打字软件┊简体中文绿色特别版
--->Need3Space V1.3.3.49┊完整的控制和管理本地磁盘的应用程序┊英文绿色特别版
--->FTPGetter V2.8.0.97┊FTP客户端、上传和下载带宽可分开控制┊英文绿色特别版
--->QQ远程控制 V1.0
--->phpMyAdmin V2.10.3 Final┊可通过互联网控制操作 MySQL┊多国语言绿色免费版
Tags:　控制窗体变化

delpht中控制窗体的变化的技巧

使用Delphi轻松控制IE窗口

实现QQ窗体的缩入伸出功能

风行网络电影业务3月8日数据变化

◎→	本类最新
DELPHI动态生成控件 Delphi编程中创建一个启动闪现窗在win95,win98下实现半透明的窗口拖动无标题栏窗体的方法用Delphi 控制窗体的大小使MDI窗口有一个背景图象或使它平软件启动画面中启动状态的显示

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
Delphi拖放编程（2）(1) Delphi“流”实现文件加密器(3) Delphi“流”实现文件加密器(2) Delphi“流”实现文件加密器(1) Delphi6函数大全（8）(2) Delphi6函数大全（8）(1) Delphi6函数大全（12）