16,749
社区成员
发帖
与我相关
我的任务
分享程序窗口拉伸的问题！
程序运行时窗口默认的是可以拉伸的，我怎么样才能使它不能进行拉伸呢？就是说鼠标移到窗口边上或是角上的时候不能拉大或是缩小窗口。
还有当鼠标按住窗口的标题栏时是可以移动的，我怎么样才能使它不能移动呢？双击标题栏的时候也要使它不能最大化或是还原。
大家看看啊！！！
还有当鼠标按住窗口的标题栏时是可以移动的，我怎么样才能使它不能移动呢？双击标题栏的时候也要使它不能最大化或是还原。
大家看看啊！！！
...全文
请发表友善的回复…
发表回复
yinweixian 2006-02-13
- 打赏
- 举报
谢谢！够了！
cuteant 2006-02-13
- 打赏
- 举报
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窗体吧。
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窗体吧。
