程序窗口拉伸的问题！

Question

程序运行时窗口默认的是可以拉伸的，我怎么样才能使它不能进行拉伸呢？就是说鼠标移到窗口边上或是角上的时候不能拉大或是缩小窗口。
还有当鼠标按住窗口的标题栏时是可以移动的，我怎么样才能使它不能移动呢？双击标题栏的时候也要使它不能最大化或是还原。
大家看看啊！！！

Answer 1

Form的BorderStyle属性改为bsSingle后就不能调整大小了
Form的BorderIcons属性中的biMaximize改为false后，双击标题栏就不能最大化了（最大化按钮失效）
至于不让窗体移动嘛，要求bt了点，方法如下：
首先在Interface部分做如下声明：procedure WMNCHitTest(var Msg: TMessage);message WM_NCHITTEST;
然后在implementation部分添加如下代码：
procedure TForm1.WMNCHitTest(var Msg: TMessage); 
begin
  inherited; // 这样,移动就不可能了...
  Msg.Result := HTCLIENT;
end;不过这个时候整个标题栏都失效了，包括关闭按钮和最小话按钮，自己添加一个Button来Close窗体吧。