请教大家一个简单的问题

Question

怎样才能使一个窗体不被拖拽而改变大小？谢谢了。

Answer 1

窗体上有一个Constraints属性，它下面有四个选项：MaxWidth，MaxHeight，MinWidth，MinHeight，即为窗体的最大宽度，最大高度，最小宽度与最小高度，设置这几个值使得MaxWidth:=MinWidth,MaxHeight:=MinHeight就可以不改变大小而可以拖拽了

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  with form1 do
  begin
   Width:=strtoint(edit1.text);
   Height:=strtoint(edit2.Text);
   Repaint;
  end;
end;哈哈，这样可以了吧，随便改大小

Answer 3

我发现把窗体的属性设置成bssingle就行了.

Answer 4

我发现把窗体的属性设置成bsdialog也是可以的