窗体大小的控制（菜鸟的问题）

Question

属性没有
但是你可以在Form的OnResize里面固定你的窗体大小
Self.Width:=100;
Self.Height:=100;
试一试

Answer 1

简单的方法是处理窗口的OnResize事件更好的方法是截获窗口大小改变的消息。

Answer 2

那用这么麻烦，Form的BorderStyle设为Dialog

Answer 3

Form1.BorderStyle := bsNone;

Answer 4

搞错了，
不能把窗体的边框呀，标题等等都去掉，都要保留下来Form1.BorderStyle := Dialog;

Answer 5

使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口，
当它极大时只占屏幕的一小部分，它是如何实现的呢，请看下面的说明：
1)在FORM私有声明部分加上如下一行：
procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO; 
2)在声明部分加上如下几行:
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200; {最大化时宽度}
ptMaxSize.Y := 200; {最大化时高度}
ptMaxPosition.X := 99; {最大化时左上角横坐标}
ptMaxPosition.Y := 99; {最大化时左上角纵坐标}
end;
Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
inherited; 
end;

Answer 6

pravite
  procedure WMPosChange(var message:TWMWINDOWPOSCHANGING);message WM_WINDOWPOSCHANGING;
.....
procedure TForm1.WMPosChange(var message:TWMWINDOWPOSCHANGING);
begin
   PWindowPos(TMessage(message).lParam).Flags:=PWindowPos(TMessage(message).Flags or SW_NOMOVE or SWP_NOSIZE;end;
试一试,

Answer 7

可以重载窗口函数，然后自己处理 WM_SIZE 消息！

Answer 8

to:naughtyboy(淘气男孩)好像有点不对也，有错误在.Flags 处

Answer 9

如果从SHOW到CLSOE一直不让改变大小：
 可将BORDERSTYLE := BSSIGNLE;
 BORDERICON 的 biMiniMize := false;
 不让最大 biMaxmize := false;