请问怎样使窗体禁止拖拽、拉伸？？？我是新手，请教！

[waterlady]

关键是两者都禁止，该改哪些属性呢？？？

[mrdige]

先让社会分配不可拉伸，判断窗体在屏幕中的位置，可以一直刷新呀

[jishiping]

禁止拉伸，将Form的属性BorderStyle设成bsSingle或者bsDialog就可以了。
至于你说的禁止拖拽，是什么意思啊？是不是不让Form可以移动啊？

[jishiping]

如果是不让用户用鼠标拖动Form的标题栏移动窗口，拦截消息WM_NCHITTEST就可以了。
class TForm1 : public TForm
{
//.......
protected:
void __fastcall WndProc(TMessage&);
//.......
};

void __fastcall TForm1::WndProc(TMessage& Msg)
{
TForm::WndProc(Msg);
if (Msg.Msg==WM_NCHITTEST && Msg.Result
==HTCAPTION)
Msg.Result = HTCLIENT;
}

[waterlady]

谢谢及时评....呵呵!