想form没有最大化按钮也不允许拖动改变窗口大小怎么做？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
     bwinstat:boolean;
    procedure WMwindowposchanging(var msg:twmwindowposchanging);
    message wm_windowposchanging;
    { Private declarations }
  public
   { Public declarations }
  end;var
  Form1: TForm1;
const
 uflag =  SWP_NOMOVE ;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  bwinstat:=true;
 end;
procedure TForm1.WMwindowposchanging(var msg:twmwindowposchanging);
 begin
  inherited;
     if bwinstat then
   msg.windowpos^.flags:=msg.windowpos.flags or SWP_NOMOVE;
  end;end.
以上是固定的
不要最大化按钮，去掉标题栏就可以了

Answer 1

在form的属性中设置如下：
bordericons:=[];   //去掉最小化，最大化，关闭
borderstyle:=bsSingle; //别人不能改变这个窗口的大小

Answer 2

设置Form.bordericons
并borderstyle:=bsSingle;

Answer 3

设置Form.bordericons
并borderstyle:=bsSingle;

Answer 4

Oh,错了 :)  borderStyle:=bsnone;

Answer 5

我说个方法,不过不一定好,把FORM的borderstyle设置一下.
然后画个关闭,也是个办法.

Answer 6

没有最大化按钮form1.bordericon:=[biSystemMenu,biMinimize];
不允许拖动改变窗口大小form1.borderstyle:=bsSingle；

Answer 7

form1.bordericon:=[biSystemMenu,biMinimize];
后，还是有个灰色的最大化按钮阿，希望连这个也没有

Answer 8

Form1.BorderStyle:=bsSingle;
 Form1.BorderIcons:=[biminimize];
都是有属性窗口设定的。

Answer 9

这样就又回到前面的问题了，如果Form1.BorderIcons:=[biminimize];
就没有那个用来关闭窗口的叉叉按钮了呀：（

Answer 10

这么简单，直接在form对象设置浮动窗里设置就可以了

Answer 11

bordericons:=[];   //去掉最小化，最大化，关闭
borderstyle:=bsSingle; //别人不能改变这个窗口的

Answer 12

我这个方法最管用了：
=============================
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure SubClassWndProc(var Message: TMessage);
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.DFM}
procedure Tform1.SubClassWndProc(var Message: TMessage);begin
  if (message.Msg = WM_NCHITTEST) then
     MESSAGE.Result := 1  else
    form1.WndProc(Message);end;procedure TForm1.FormCreate(Sender: TObject);
begin
   WindowProc := SubClassWndProc;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   application.Terminate;
end;end.

Answer 13

hjd_cw
你的程序把那三个按钮都屏蔽了，可是全部都看得见，而且实现非常麻烦