关于窗体的属性?~

Question

怎么设置
不能把窗体拖大,或缩小?
还有不能移动

Answer 1

怎么控制不能移动我不会在form.OnResize事件中，写下：form1.width:=xxx;
form1.height:=xxx;xxx数自己定

Answer 2

注意：如果把BordeStyle设置成bsNone，窗体将没有标题栏，啥也没有了！

Answer 3

//不可移动！！！unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure OnPosChange(var Msg: TWmWindowPosChanging);
              message WM_WINDOWPOSCHANGING;  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
procedure TForm1.OnPosChange (var Msg: TWmWindowPosChanging);
begin
  Msg.WindowPos.x := Left;
//消息的WindowPos.x部分包含新窗体左边位置，将其改成原来窗体左边坐标
//Left全写为Form1.Left 
  Msg.WindowPos.y := Top;
//消息的WindowPos.y部分包含新窗体顶部位置，将其改成原来窗体顶部坐标
//Top全写为Form1.Top
  Msg.Result := 0;
end;
end.
 

Answer 4

告诉你一个最简单的:(
--->不能把窗体拖大,或缩小?
borderStyle-->bsSingle
--->还有不能移动
align-->alCustom