请问,有什么办法使窗体固定大小？

Question

Form的AutoSize设置为True;
并且将Form的拨BorderIcons的biMaximize设置为False;

Answer 1

//No.1
  BorderStyle :=  bsToolWindow;//No.2
  Constraints.MaxHeight := Height;
  Constraints.MinHeight := Height;
  Constraints.MaxWidth := Width;
  Constraints.MinWidth := Width;

Answer 2

//No.1
  BorderStyle := bsSingle; //也可以

Answer 3

tform1create事件里
left:=10;
top:=10;
width:=600;
height:=400;
并且将Form的拨BorderIcons的biMaximize设置为False;
我让你变

Answer 4

原理是得到鼠标双击标题栏的消息，然后把这个消息置零，代码如下，非常有效：
public
  procedure WMSysCommand(var msg:TWMSysCommand);
  message WM_SysCommand;
/////////////////////////////////////////////
procedure TForm1.WMSysCommand(var msg:TWMSysCommand);
begin
  if (msg.CmdType=61730) or (msg.CmdType=61728) or (msg.CmdType=WM_NCHITTEST) then msg.Result:=0
   else inherited;
end;

Answer 5

BorderStyle:=bsToolWindow
BorderStyle:=bsDialog
BorderStyle := bsSingle或FormCanResize中改变大小,既可以固定窗体也可以让窗体在一定范围内改变!

Answer 6

设置Constraints是最简单的办法，设计时同样适用