改变无边框窗体的大小

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    procedure CreateParams(var Params: TCreateParams);override;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := (Style or WS_POPUP) xor (ws_dlgframe);
//如果要凹下去的效果，则加入下面这行，否则去掉
    ExStyle := ws_ex_clientedge;
  end;end;end.

Answer 1

去Kingron.myetang.com下载猛料，可以解决很多问题。

Answer 2

rh兄：人家好像说的不是这个样子。
form.BorderStyle:=bssizetoolwin不行吗？

Answer 3

2 wangxd1976(西门吹雪)　：这个嘛，只好看他本人的意思啦：）
什么叫“无边框”~~~~~~说不定你和我都是错的，他的意思是bsnone那样的呢