大量Delphi开发资料

				控制Form不能放大、缩小、移动、关闭
				
				
				
				1、把 Form 的BorderIcons 下的几个子属性值全改为 False;
				
				2、修改 Form 的BorderStyle 的值为bsSingle ;
				
				3、为了让窗口不能移动
				
				可以自已拦下 WM_NCHITTEST 消息
				
				对该消息的
				
				处理为：一概回应鼠标点在窗口的 Client 区域
				
				相信这个视窗就呆呆的不会动了。
				
				详情可以查一下 Win32API Help 的 CreateWindow() 与 WM_NCHITTEST 的说明。
				
				下面是一个例子
				
				请参考看看：
				
				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;
				
				end;
				
				var
				
				Form1: TForm1;
				
				implementation
				
				{$R *.DFM}
				
				procedure TForm1.Button1Click(Sender: TObject);
				
				begin
				
				Close; // 不可少
				
				因为不加此行只有用Alt+F4才能关闭此窗口了
				
				end;
				
				
				procedure TForm1.WMNCHitTest(var Msg: TMessage);
				
				begin
				
				inherited; // 这样
				
				移动就不可能了...
				
				Msg.Result := HTCLIENT;
				
				end;
				
				end.