怎样使窗体不会因为鼠标拖边框而不改变大小(50分)

一般窗体会随鼠标在窗体边拖动而改变大小，怎样才能不改变呢？

把FORM的BOARDSTYLE改为SINGLE或其它就可以了。

将form的autosize该成true.

把Form 的BorderStyle 设为bsSingle就行了。

没想到已有这么多人答对，就是改为 bssingle即可

设置Form的constraints属性也可以使窗体的大小不变，只要：
maxwidth=minwidth
maxheight=minheight

呵呵，Victortim 的有创意
。

把 BoardStyle 属性设置为 bsSingle

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

procedure Appmessage(var msg:Tmsg;var handled:boolean);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure Tform1.Appmessage (var msg:Tmsg;var handled:boolean);
begin
if Msg.message=WM_LButtonDown then
begin
if DefWindowProc(Handle,WM_NCHitTest,0,GetMessagePos)=HTClient then
begin
SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos);
Handled:=true;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;

end;

end.

另外还别忘了把 BoardStyle 属性设置为 bsSingle.

将form的 BorderStyle 设为 bsSingle
也可以在 form 中右击的菜单在选 VIEW AS TEXT 栏在

object Form1: TForm1 下面加入
BorderStyle = bsSingle
不用分号
绝对可以

http://202.101.8.5/huibo/interface/wndsize.zip

把FORM的BOARDSTYLE改为BSSINGLE。

接受答案了.